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Os artigos e matérias assinadas são de 
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concordar com as opiniões aí expressas. 
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Nesta edição os usuários dos micros TK-85 
poderão notar, nos programas publicados, uma 
atenção especial dada às suas inúmeras 
reclamações sobre a falta de matérias dirigidas a 

este equipamento. Estamos dando início a um artigo 
onde os usuários do TK-85 poderão incrementar o 
seu hardware, melhorando a alta-resolução do micro 
e, já na próxima edição, estes mesmos leitores terão 
outras surpresas. 

Este número é a primeira edição de 1986 e como 
já ressaltamos no editorial anterior con tinuaremos 
nossa meta de buscarmos as idéias para posteriores 
pautas, nas sugestões enviadas pelos leitores. 

Todo início de ano é sempre bastante difícil para 
qualquer publicação, principalmente no tocante ao 
cumprimento de prazos e elaboração de pautas. Por 
este motivo algumas ausências serão notadas nas 
páginas de Microhobby. 

Esta edição traz, em sua maior parte, programas 
para o TK-2000 e TK-85, porém uma menor 
quantidade de matérias para o TK-90 X. Isto se deve 
a alguns problemas ocorridos na programação, 
gravação e avaliação dos programas. Preferimos 
dessa forma, publicarmos apenas um programa 
(Arquivos) e deixarmos âqueles, com erros de lógica, 
para a próxima edição. 

Estamos planejando algumas inovações nas 
seções da Revista que acreditamos terão bastante 
receptividade por parte dos leitores. 

No mais, pedimos desculpas pelo pouco 
bate-papo, deixando as melhores coisas para O 
próximo número. 


Ana Lúcia de Alcântara 


participar ativamente das mais recentes 
e revolucionárias tecnologias a respeito 

os microcomputadores. Além de 
fazer amigos, eventualmente poderão 


oo > 
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Cara Ana Lúcia, 

Embora com atraso, gostaríamos de agra- 
decer pela atenção que nos foi dispensada 
por ocasião da última edição de Microhob- 
by. Sem dúvida alguma, poderíamos efetuar 
com maior profissionalismo ainda o nosso 
trabalho, se contássemos sempre com a se- 
riedade de pessoas como vocês. 

Dizemos tudo isso por sabermos que esta- 
mos lidando com profissionais que reconhe- 
cem e valorizam as informações das quais 
dispomos. 


Ângela Cassiano — Acesso 
Comunicação 
São Paulo - SP 


Cara Angela, 

Realmente agradeço imensamente os seus 
elogios. Estes são o nosso incentivo para que 
continuemos na luta do nosso dia-a-dia. 


Prezada Editora, 

Agradecemos a gentileza de seus comen- 
tários e a lembrança do envio de um exem- 
plar da Revista que, por sinal, está com uma 
bela apresentação e um bom conteúdo. Es- 
peramos que se torne cada vez melhor. 


Henrique Costábile 


Caro Senhor, 

Agradeço-lhe os elogios concernentes à 
Microhobby. Nossa equipe tem trabalhado 
seriamente, com o intuito de alcançar o me- 
lhor conteúdo editorial e, principalmente, 
atingir o principal interesse do usuário de 
micros fornecendo-lhe todo o apoio necessá- 
rio no uso de seu equipamento. 


Prezados Senhores, 
Sou possuidor de um TK-2000 e solicito 
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algumas informações: Comandos STORE e 
RECALL. Posso fazer um novo programa 
com o RECALL? Digito este programa após 
a leitura do programa principal? Não consi- 
go fazé-lo funcionar. Exemplifico: Fiz um 
programa simples com quatro variáveis 
DIM Af(4) correspondendo aos valores de 
quatro cadernetas de poupança nos respec- 
tivos comandos DATA. Introduzt a fórmula 
de cálculo de juros e correção mediante um 
INPUT TEXA So. 


Helder Serra 
Santos - SP 


Caro Helder, E 
Ao tentarmos esclarecer suas dúvidas a 


respeito dos comandos STORE e RECALL, 
encontramos algumas dificuldades de inter- 
pretação. Por exemplo, não sabemos, sem 
uma visualização do seu programa, se os 
campos foram devidamente dimensionados. 
Caso tenham sido, precisamos saber mais a 
respeito do comando DATA utilizado no 
programa, para verificação de um possível 
estouro no campo anteriormente dimensio- 
nado. Necessitamos também saber se a recu- 
peração da matriz que você deseja, será “via 
computador” ou “via fita cassete”, pois tais 
comandos somente são atribuídos no segun- 
do caso. 


Portanto, se desejar maiores esclareci- 
mentos, envie-nos seu pequeno programa, 
gravado em fita cassete, para que possamos 
analisá-lo. 


Quanto à impressora TK-500 Printer ela é 
compatível aos TK-90X e TK-85. Provavel- 
mente, num futuro próximo, poderá ser 
compatibilizada ao TK-2000. Seu preço va- 
riará entre 2,5 e 3 milhões de cruzeiros. 


Prezados Senhores, 

Lendo a Microhobby, da qual sou leitor 
assíduo, encontrei erros no programa “Co- 
mo localizar Cometas com o TK-2000" de 
Antonio Fernando Bertachini, editado na 
edição número 17. Peço-lhe uma outra pro- 
gramação deste programa, pois encontrei er- 


ro nas linhas 2060 e 6060. 


Luiz Pilotto Carrano 
Curitiba - PR 


Caro Luiz Pillotto. , 
Com o objetivo de esclarecermos suas dú- 


vidas a respeito do programa citado, carre- 
gamos o mesmo e funcionou perfeitamente. 
Portanto, os erros apontados em sua carta 
não foram localizados. O erro apontado foi 
uma falha de impressão. 

Por este motivo, aqui estão as linhas em 
referência: 2060 DATA 1974.7, 123.3, 126, 
6.51, 3.489, 386, 3.7, 1974.36, 67,8, 75.1, 
6.76, 3.576, 632, 30.2, 1970.77, 18.2, 188.4, 
7.47, 3.821, 351, 10.2 
6060 IF (YR < 1582) OR (YR = 1582 AND 
MS < 10) OR (YR = 1582 AND MS = 10 
AND DIA < 15) THEN 8 = 0. 


Prezados Senhores, 

Primeiramente gostaria de parabenizá-la 
pela magnífica revista que vêm editando e 
também pela sua eficiente entrega. 

Tenho um CP-200, todos sabem que ele 
não é color e muito menos sonoro, não?! 
Pois meu problema é que há alguns meses 
consegui dois programas: (MISSÃO AN- 
DROMEDA; ORGAO), que emitem sons 
pela TV. O primeiro, mais conhecido como 
“penetrador”, ao recomeçar o jogo emite 
uma pequena música; o outro como o pró- 
prio nome diz emite notas musicais. Gosta- 
ria de saber como poderei programar notas 
musicais no CP-200 e se possível enviar-me 
um programa abordando este assunto. 


Marcio Renato Pinheiro 
Fortaleza, CE 


Caro Marcio, e 
Através de um periférico (Software), com- 


patível ao CP-200, mas utilizado nos micros 
TK 82, 83, 85 torna-se possível programar 
notas musicais no seu micro. Mas, para 
maiores esclarecimentos, sugerimos que vo- 
cê entre em contato com um representante 
Prológica para saber qual o periférico que 
melhor se adapta ao seu micro. 


Prezados Senhores, 

Venho acompanhando a Microhobby já 
há alguns números. Isso se deve ao fato de 
ser a primeira revista a publicar informa- 


ções e bons programas para o micro TK- 
90X. 

Mas, no exemplar número 21, o progra- 
ma Base Lunar “roda” em meu micro de 
maneira diferente da esperada. Isto ocorre 
da seguinte maneira: após as definições dos 
caracteres especiais, através da função UDG 
2, os mesmos são alterados pelo próprio 
computador, após o RUN, sem que eu te- 
nha usado qualquer das funções UDG O ou 
UDG 1 anteriormente. 

Pensando ser um erro no programa, cons- 
tatei o mesmo tipo de defeito no exemplar 
número 22, quando da utilização do pro- 
grama “256 Cores”. 

Neste também os caracteres sairam modi- 
ficados em relação àqueles que defini no ini- 
cio da carta. 

Peço-lhes a gentileza de informar-me so- 
bre o que ocorreu, se houve erro de impres- 
são ou se o meu micro está com algum de- 
feito. 


Alan C. Lima 
São Paulo - SP 


Caro Alan, 

Neste artigo, o que ocorreu foi que os 
caracteres especiais foram definidos 
duas vezes. Na primeira, antes de co- 
meçar a digitar o programa, entrando 
direto em UDG 2; (onde os caracteres 
especiais são redefinidos pelo próprio 
usuário) e por uma segunda vez, no 
próprio programa através das linhas 
DATA's, que foram definidas com o 
mesmo propósito. Na verdade não ocor- 
reu erro no programa porque, quando o 
comando RUN foi executado, a primei- 
ra definição que havia sido feita, antes 
de sua digitação, foi destruída pelas li- 
nhas DATA's existentes no programa 
que possuem os códigos referentes à de- 
finição dos caracteres. Isso ocorre 
porque, ao se transformar cada número 
em notação binária (0, 1), define-se au- 
tomaticamente os caracteres, não ha- 
vendo necessidade de uma definição 
prévia. Com respeito à compra do pro- 
grama citado, você poderá se encami- 
nhar a um revendedor autorizado Mi- 
crodigital. Por exemplo, a Fotóptica e a 
Mesbla em São Paulo. 


Cara Editora, 

Primeiramente quero parabenizar o ma- 
ravilhoso trabalho que vem sendo feito por 
sua equipe. Fiquei muito contente ainda ao 
ver, na página 9 da edição 24 da Microhob- 
by, o programa Alta-Resolução. 

Imediatamente liguei o meu microcompu- 
tador para passar o programa. Depois de fa- 
zer tudo como mandava a revista, executei o 
programa para entrar com os endereços he- 
xadecimais e, ao pedir o endereço inicial co- 
loguei 16618 e, no endereço final 16610, pa- 
ra meu espanto, o programa parou e surgiu 
no vídeo a seguinte mensagem: 0/140. Tor- 


nei a digitar RUN e o programa parou no- 
vamente. 


Alessandro Barbosa Laurenti 
São Paulo - SP 


Caro Alessandro, 

Agradecemos pelo seu elogio à Microhob- 
by. A respeito de seu problema, o erro cons- 
tatado por você no programa foi um proble- 
ma de diagramação onde, o mesmo foi in- 
vertido: seu início (16514) acabou ficando no 
final do programa. Se você tentar seguir a 
sequência (16514, 16522, . . . 16706, 16714) 
poderá ter bons resultados. 


Prezados Senhores, 

Apreciamos muito que Microhobby pu- 
blicasse um programa de muita utilidade 
para nós, como Cadastro (edição número 
20). Porém, a meu ver, uma boa parte do 
programa ficou faltando. 


Eduardo Lara Campos 
Campinas - SP 


Caro Eduardo, 

Por uma falha nossa, o restante do pro- 
grama foi cortado indevidamente no “bone- 
co” final, desta edição. Mas, publicamos a 
sua complementação no número 22, página 
58 da Microhobby. 


Prezados Senhores, 

Adquiri um TK-2000 II, com 65k de me- 
mória e até agora venho utilizando-o apenas 
para rodar programas com um máximo de 
30 a 35k, o que tem sido perfeitamente pos- 
sível dentro do limite dos 38k disponíveis. 

No entanto agora surgiu a necessidade de 
rodar um programa com mais de 40k e, ba- 
seado nas instruções do manual técnico, não 
foi possível resolver o problema. 

Recorri então ao técnico em programa- 
ção da empresa que representa a Microdi- 
gital em Porto Alegre. Porém o rapaz não 
soube esclarecer coisa alguma. Simplesmen- 
te desconhece o assunto. 

Assim é que, através desta, estou recor- 
rendo aos senhores para que me respondam: 
em que situação poderei utilizar os 16 kBy- 
tes adicionais que estão localizados na re- 
gião da ROM? Como devo proceder para ter 
acesso a eles? 


Venino Nereu Zambon 
Porto Alegre - RS 


Caro Venino, 

Tanto o TK-2000 como o TK-2000 II pos- 
suem duas páginas de vídeo, que são a MA e 
aMP. 

Se o programa que você estiver digitando 
não ultrapassar a área da MA, então não te- 
rá problemas. Caso ocorra o contrário e o 


programa invadir a MP, então tudo o que já 
foi digitado será perdido. 

Para que isso não ocorra e todo o trabalho 
se perca, você deve digitar MP antes de in- 
troduzir qualquer programa, pois este co- 
mando libera a segunda página de vídeo, 
tornando a MA e MP uma coisa só. 

Quando digitar o comando MP em seu 
TK-2000 II sua tela ficará repleta de traços 
verticais, digite HOME para limpar a tela e 
pode iniciar seu trabalho. 


Prezados Senhores, 

No TK-90X, as linhas de edição podem 
ser liberadas e no TK-85? Tentei fazer isto 
através de um POKE 23659 e só consegui 
um fundo preto, e perda de cursor. 

Qual a relação que existe entre os núme- 
ros que se seguem à DATA e a definição de 
caracteres? Por exemplo: DATA 2, 20, 2, 
22, 2, 24, 2, 26, 3, 21, 3,23, 3, 25,4, 22,4, 
24, 5,23...?no TK-90X, o que quer di- 
zer? 

Peço-lhes também informações acerca do 
programa “Boliche publicado na edição 24 
pois, ao rodá-lo, aconteceram alguns pro- 
blemas: ao fazer uma jogada, não importa 
quantas garrafas tenha sido derrubadas, a 
marcação dos pontos é sempre 1. Acontece- 
ram também outros problemas. Será que há 
algum problema com o programa? 


GUARDE ESTE NUMERO: 


É onde você encontra tudo para 
os micros da linha TK. 
e SOFTWARE (Jogos e Aplicativos) 
* ACESSÓRIOS 
e PERIFERICOS 
e LITERATURA 
e EO NOVO TK 90X - MICRODIGITAL 


à o micro 
=», cheio de 
programas. 


- Jocos apLicarivos  CIBERTADT 


e APLICATIVOS TK-85 / TK-20001l EM FITA 
E DISKETE RAR 
Microidéia 


PASSE SEU PROGRAMA EM FITA SEM 

PROBLEMAS UTILIZANDO A INTERFACE LH-3. 

CONHEÇA TAMBÉM O MONITOR LH-12 
RC.C. 


FAÇA O CURSO DE BASIC NA MELHOR ESCOLA DE S.PAULO 


MAGNODVATA 
(8) | 


informática ltda. 
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Expedito do Nascimento Nunes 
Belém - PA 


Caro Expedito, 

Para a liberação das linhas no TK-90X vo- 
cê deve proceder da seguinte forma: 
— digite:; POKE 23692, O: LIST, a lista- 
gem correrá sem o SCROLL. A relação que 
existe entre o comando DATA e a definição 
dos caracteres é a seguinte: ao se converter 
cada número do DATA em binário, você te- 
rá uma combinação de bits O e 1 (o número 1 
indica a existência de um ponto e o O a ine- 
xistência do ponto). Se você está lembrado, 
ao se fazer a definição dos caracteres, você 
especifica a existência, ou não, de um pon- 
to. E esta é a relação. 

A respeito do programa “Boliche”, verifi- 
camos novamente sua estrutura e o testa- 


— 


mos, mas não nos deu problemas. Tente di- 
gitar novamente o programa, talvez você te- 
nha trocado alguma variável. 


Prezados Senhores, 

Tenho um TK-2000 com gravador casse- 
te. Pretendo adquirir um drive e a minha 
pergunta é a seguinte: 

Possuo vários jogos em Linguagem de Má- 
quina, será possível passá-los para o disque- 
te? Como devo proceder? 

A fita gravada em BASIC e gravada com a 
MP aberta, ou seja, sendo usada, como de- 
vo transferir para o disquete, pois soube que 
a transferência não se efetua completa- 
mente, cortando no meio o programa? 


Nilton Oliveira da Silva 
Rio de Janeiro - RJ 


Clube de Usuários 


TK-90X e Compatíveis 


Sergio Alexandre Felix 
Molina 

ONB 4 casa 36 

72000 Taguatinga DF 
Equip. TK-90X 

área de inter. jogos, 
didática 


Sergio Dantas 

R. Reseda 167 
05675 São Paulo SP 
Equip. TK-90X 

área de inter. jogos e 
educativos 


Werner Mathi 

Caixa Postal 323 

19900 Ourinhos SP 

Equip. TK-90X 

(também possui um TK-85) 


Adans Richard Jirschik 

R. Nazzareno Donnini 52 
Monte Kemel 

05634 São Paulo SP 

Equip. TK-90X 

(também possui um TK-85) 
área de inter. programas, 
eletrônica e informações 


Alexandre M. de Brito 
SHIN 0113 CJ/4 casa 4 
71500 Brasília DF 
Equip. TK-90X 
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(também possui um TK-85) 


Antonio William Silva 

Pça. Santo Antonio 29 
Recreio 

45100 Vitória da Conquista 
BA 

Equip. TK-90X 

(também possui um TK-85) 
área de inter. Basic, 
Assembly 


TK-85 e Compatíveis 


Fabio Henrique Alves de 
Paulo 

R. Diogo Garcia Carmona 
1240 

15300 General Salgado SP 
Equip. TK-85 

área de inter. educação 

e lazer 


Ronaldo R. da Costa 

R. Luiza Trav. R. Claudia 5 
03617 São Paulo SP 
Equip. TK-85 

área de inter. 


Rui Paulo Rodrigues 
Branquinho 

R. Maria Figueiredo 230 
ap. 104 

04002 São Paulo SP 
Equip. TK-85 

área de inter. 


Pedro Paulo C. Alvim 


Correa 
Caixa Postal 41 


06730 Vargem Grande 20021 Rio de Janeiro RJ 
Paulista Equip. TK-2000 
Equip. TK-85 


área de inter. Assembly, 


jogos e aplicativos 


Marcelo Pizarro 


R. Tucuna 273 Pompéia 


05021 São Paulo SP 
Equip. TK-85 
(também possui um 
CP-200) 


área de inter. matemática 


Fernando Luiz B. da 


R. Julio de M. Filho 10-54 


ap. 51 
17100 Bauru SP 
Equip. TK-85 


área de inter. Organiza um 
Clube de Usuários em sua 


cidade 


TK-2000 e Compa 


Vicente Quartieri Neto 


R. Ipê 110 Pq. Bitarú 
11300 São Vicente S 
Equip. TK-2000 Il 
área de inter. eletrôn 
digital 


Caro Nilton, 

Em resposta às suas perguntas estamos 
fornecendo algumas respostas que espera- 
mos possam solucionar as suas dificuldades. 
Você pode passar seus programas em As- 
sembly da fita para o disquete. Porém isso 
depende do programa. Se for um software 
mais sofisticado ficará difícil pois, ao se dar 
RESET, o programa automaticamente é 
apagado da memória. Caso isso não ocorra, 
você terá de acionar a segunda página da 
memória com a MP e entrar no monitor com 
LM. Neste ponto se complica um pouco, 
pois você terá que encontrar o início e o fim 
do programa em Assembly. Ao encontrá-lo 
digite:; Posição inicial, posição final + 2 po- 
sições W (“NOME DO PROGRAMA”). 
Por exemplo 0800.08FFW “PROG”,. Com 
isso, você estará gravando seu programa em 
Assembly para o disco. 


Nilton Oliveira da Silva 
Aeroporto Santos Dumont 
4º Depto. de Aviação Civil 


Antonio Alberto P. da Silva 
R. Canarias 121 Sta. Amelia 
30000 Belo Horizonte MG 
Equip. TK-2000 

área de inter. jogos e 
aplicativos 


Charles Henrique Frazão 
Matos 

R. 1460-129 casa 34 Vila A 
85890 Foz do Iguaçu PR 
Equip. TK-2000 

área de inter. jogos e 
utilitários 


Silva 


Temistocles A. Santos 
Caixa Postal 1122 
50000 Recife PE 
Equip. TK-2000 Il 


tíveis Paulo Cezar Loyola 
Camorim 

R. ATE. Cochrane 32 
ap. 404 

P 20000 Rio de Janeiro RJ 
Equip. TK-2000 

área de inter. jogos, 
aplicativos e Basic 


ica 


ERo 


RPASoft uma escola para 
usuários leigos 


Sala de aula na RPA Software 


Oferecer uma base profissionalizan- 
te da informática é o principal objetivo 
da RPASoft uma escola de computa- 
ção para usuários leigos. 

E foi com esse intuito que os irmãos 
Carlos e Roberto Peres Angelelli fun- 
daram há um ano e meio esta escola de 
computação, ampliando assim o ramo 
de atuação da RPASoft, empresa de 
assessoria e consultoria em softwares, 
criada há dois anos. 

Com duração de dois meses, o cur- 
so, ministrado por um professor e dois 
orientadores, é subdividido em dois 
segmentos. Inicialmente, o aluno rece- 
be informações teóricas sobre a histó- 
ria do computador, noções de microin- 
formática e de Basic, todas baseadas 


no livro de Larry Gonick, Introdução à 
Computação. Posteriormente são da- 
das aulas práticas, que fazem.parte de 
um pacote de softwares com três pro- 
gramas: processador de texto, plani- 
lha de cálculo, e Banco de dados. Os 
equipamentos utilizados na RPASoft 
são os seguintes: TK-85 e TK-90X, da 
Microdigital Eletrônica; CP-200, da 
Prológica; o Exato, da CCE; Itautec Ju- 
nior Ee o | 7000, também da Itautec. 

O Curso de Computação para usuá- 
rios é composto de duas aulas por se- 
mana, funcionando só no turno da noi- 
te. A RPASoft fica na Av. Paulista, 
1159, Conjunto 1210, em São Paulo. 
Maiores informações pelo telefone 
(011) 289.21.18. M.R. 


Seminário na Itália é presidido 
por brasileiro 


O brasileiro José Mauro Leal Costa, 
professor e diretor de Tecnologia da 
ABC XTAL, de Campinas, vai presidir 
os trabalhos do Seminário de Comu- 
nicação por Fibras Ópticas, em Tries- 
te, que irá se realizar de 24 de fevereiro 
a 21 de março. 


Este evento tem o patrocínio do 
Centro Internacional de Física Teórica; 
da Agência Internacional de Energia 
Atômica e da UNESCO. Ele visa anali- 
sar.as modernas técnicas de utilização 
das fibras ópticas e suas aplicações nas 
telecomunicações. M.R. 


Pró-Eletrônica 
lança SPC 


Ao dar continuidade à sua filosofia 
de incentivo ao software, a Pró-eletrô- 
nica desenvolveu o programa “Siste- 
ma Padrão de Contabilidade”. 

Dirigido aos usuários que possuam 
micros da linha Apple, com CP/M, es- 
te programa tem o objetivo de solucio- 
nar os problemas mais frequentes da 
contabilidade, além de efetuar tarefas 
como: balancete de verificação, balan- 
cete mensal, livro diário, balanço geral 
anual, etc. 

Segundo o gerente de software da 
Empresa, Marcos Aurélio e Silva, o 
SPC foi projetado em oito meses e o 
público alvo pretendido pela Pró-Ele- 
trônica é, principalmente, o das peque- 
nas empresas prestadoras de serviço. 
Marcos Aurélio acrescentou, ainda, 
que a Empresa lançou-se no segmento 
de aplicativos para “suprir a falta de 
programas específicos no mercado”. 

O Sistema Padrão de Contabilidade 
custa 40 ORTN's e é o terceiro soft- 
ware desenvolvido pela Pró-Eletrônica, 
empresa que firmou-se como revende- 
dora de equipamentos para informáti- 
ca. M.R. 


Microdigital 
exporta novo 
lote para a 
Argentina 


A Microdigital Eletrônica, empresa 
que conta atualmente com 482 pontos 
de venda na Argentina, embarcou mais 
um lote de sete mil computadores para 
este País, que é o seu principal merca- 
do externo. 

Ainda na Argentina, a empresa inau- 
gurou uma Central Administrativa, que 
ocupa três andares de um prédio pró- 
prio. Esta iniciativa, segundo o Diretor 
Presidente da Microdigital, George Ko- 
vari, visa intensificar e acelerar os con- 
tatos comerciais da empresa com os 
usuários locais. M. R. 
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Conselho de Associados da  LINC Ilamplia a 
ABEP se reúne em Manaus 


Temas como legislação de softwa- 
res; democratização dos bancos de da- 
dos e outros assuntos estiveram em 
pauta na última reunião do Conselho 
de Associados da ABEP (Associação 
Brasileira das Empresas Estaduais de 
Processamento de Dados), em Ma- 
naus. 

Durante o encontro foram definidos 
grupos de trabalho que deverão apre- 
sentar sugestões à lei de software, 
além de outras propostas. Entre elas 
está a idéia de criação de um “pool” de 
empresas com o objetivo de uniformi- 
zar os softwares para a realização de 
cadastramento eleitoral, levando em 
consideração a descrição dos equipa- 
mentos e recursos humanos de cada 
empresa filiada à ABEP. 


Incentivar, difundir e desenvolver o 
uso nacional da informática, na admi- 
nistração pública, foram os principais 
pontos da ata da UBI (União Brasilei- 
ra de Informática Pública), cuja cons- 
tituição também foi apresentada no 
evento. Segundo o presidente desta 
nova entidade, Egydio Bianchi, esta 
instituição “deverá lutar pela demo- 
cratização da informação, mediante 
acesso de vários setores da sociedade 
aos bancos de dados, administrados 
pelas instituições públicas; estudar, 
definir e propugnar pela adoção de me- 
todologias para integração de sistemas 
de processamento de dados nos ní- 
veis federal, estadual e municipal”. 
M.R. 


Data Byte inaugura sua 
Oitava Escola 


O Grupo Data Byte acaba de inaugu- 
rar mais uma Unidade de ensino ligada 
à área de informática. Situada em 
Americana, no interior de São Paulo, 
esta já é a oitava filial do Grupo que 
oferecerá, inicialmente, três cursos: 
Basic Avançado (com duração de três 
meses); Cobol (com quatro meses) e 
Digitação (um mês com aulas diárias). 

A Data Byte conta com 4 salas de 


aula; 2 laboratórios, com 20 microcom- 
putadores da CCE, 3 computadores 
Exatos e um S 101 da Polimax, além de 
material de audiovisual e vídeo-teipe. 


Os interessados poderão obter maio- 
res informações no seguinte endereço: 
Rua Fernando Camargo, 895/11º an- 
dar — Americana — SP, ou pelo tele- 
fone (0194) 65.27.35. M.R. 


produtividade 


Contas a pagar, sistemas para ge- 
renciar a fabricação de materiais, in- 
ventários e entrada de pedidos, admis- 
sões de alunos, registros médicos, etc. 
Estes e muitos outros serviços poderão 
ser oferecidos pelo LINC Il, a nova ver- 
são de software, de 4º geração da Bur- 
roughs, que pode ser utilizada em qual- 
quer computador de médio ou grande 
porte, fabricado pela empresa. 

As principais características do LINC 
Il são: desenvolvimento interativo diri- 
gido por menus, dicionário de dados 
associado, desenho de telas e relató- 
rios, intercomunicação de sistemas de 
aplicação, acesso a documentação on- 
line, relatórios em vídeo “folheáveis” e 
suporte a múltiplas linguagens. Este 
sistema também opera com gerencia- 
dor de banco de dados, compilador 
Cobol 74, terminais compatíveis com 
TM 9830/TM 6830, impressoras remo- 
tas compatíveis com TM 3131/TM 
3135, etc. 

Redução do tempo de geração, on- 
de um plano de cinco anos de desen- 
volvimento de aplicações pode ser re- 
duzido para dois anos. Isto é um exem- 
plo da aplicabilidade do LINC Il, que 
trata-se de uma ferramenta destinada 
a soluções empresariais, aumentando 
a utilização dos recursos do micro e 
proporcionando assim maiores ganhos 
na automação de negócios. M.R. 


Line Filter acaba com 
o problema de interferência 


Para solucionar os problemas de in- 
terferência nos microcomputadores, 
causados por oscilações da rede elétri- 
ca, a Metron Indústria Eletrônica de- 
senvolveu o Line Filter, um filtro de li- 
nha passivo, que filtra os picos de ten- 
são acima de 130 volts. 

Com dimensões reduzidas e de fácil 
utilização, o Line Filter protege o equi- 
pamento de todas as “sujeiras” da re- 
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de, proporcionando uma alimentação 
limpa e segura. Para conectar o apare- 
lho, basta ligá-lo entre a tomada e o 
seu equipamento através de um plug, 
interligando-o a um fio terra (AWG 20) 
na carcaça do filtro. 

Este produto está à disposição no 
mercado em três modelos: o LF-2, com 
duas tomadas e cabo duplo (custando, 
aproximadamente, Cr$ 347 mil); o LF- 


31, com 3 tomadas, cabo duplo e inter- 
ruptor luminoso e o LF-4, com 4 toma- 
das e cabo duplo (ambos em torno de 
Cr$ 515 mil). 


Os interessados em adquirir o Line 
Filter, poderão encontrá-lo nos seguin- 
tes revendedores: Filcril; Pró-Eletrôni- 
ca; Fotóptica; Zamir; Memphis e ou- 
tros. M.R. 


MIGRO 
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Manual de Auditoria de 
Sistemas chega ao Brasil 


Oferecer uma visão aprofundada dos 
métodos desenvolvidos para a audito- 
ria de sistemas de processamento de 
dados. Este é o principal objetivo do li- 
vro “Handbook of EDP Auditing”, re- 
centemente publicado nos Estados 
Unidos e que agora chega ao Brasil. 

Ainda em inglês, esta publicação é o 
resultado de todo o material produzido 
pela empresa Coopers & Lybrand, on- 
de as técnicas nele apresentadas são 
adotadas em todos os seus escritórios 
internacionais, inclusive os do Brasil. A 
Coopers & Lybrand presta serviços nas 
seguintes áreas: auditoria, apoio com- 
putacional à auditoria, consultoria ge- 
rencial, fiscal, tributária e de recursos 
humanos e serviços às empresas em 
desenvolvimento. 

“Handbook of EDP Auditing” está à 
venda, no escritório da Coopers & Ly- 
brand, em São Paulo, que fica na Av. 


Livro da Coopers & Lybrand 


Brigadeiro Faria Lima, 888, 4º e 5º an- 
dares. Maiores informações pelo tele- 
fone (011) 815-3366. M.R. 


Teletexto um sistema 
informatizado de Editar 


Com o intuito de agilizar os serviços 
de fotocomposição, a Ponto Editorial 
está oferecendo aos seus clientes o te- 
letexto: um sistema de transmissão de 
texto pelo telefone. 

Este sistema, único existente no 
mercado, funciona através de um mi- 
crocomputador que, por intermédio de 
um modem, transmite as mensagens, 
pela linha telefônica. Sendo assim, to- 
das as informações referentes ao tex- 
to, (tipo de letra, nº de colunas, corpo, 


etc.) necessárias para o desenvolvi- 
mento de uma fotocomposição, são 
fornecidas pelo cliente (via computa- 
dor) à Ponto Editorial (que as recebe na 
sua central). 


O equipamento utilizado pela Ponto 
Editorial é o CP-500 da Prológica que, 
juntamente com o modem, é alugado 
ao cliente, no valor mensal de 5 
ORTN's. O telefone para maiores infor- 
mações é 864.3499. M.R. 


Labo agiliza serviço de 
assistência técnica 


Preocupada em oferecer um atendi- 
mento de qualidade aos seus usuários 
a Labo Eletrônica instalou um serviço 
especial de Assistência Técnica, via te- 
lefone. Trata-se do CAN — Centro de 


Atendimento Nacional que a empresa 
criou para agilizar o atendimento aos 
seus clientes. O serviço funciona de se- 
gunda a sábado, das 08:00 hs às 18:00 
horas pelo telefone 5533.5681. M.R. 


Antes de inscrever-se em qual- 
quer curso de informática, conte 
até 10. Conheça a escola, os mé- 
todos e equipamentos. Confira 
se o que você vai aprender bate 
com o que você realmente preci- 
sa. O SENAC-INFORMÁTICA é 
a escola mais completa de São 
Paulo. Tem cursos práticos para 
quem quer aprender a operar, 
programar, conhecer linguagens, 
aplicativos, ou simplesmente, jo- 
gar com o micro. O SENAC-IN- 
FORMÁTICA está oferecendo 
10 novos cursos nota 10 da linha 
Sinclair. Escolha o seu e venha 
tirar a prova dos 9. Você vai con- 
cordar em número, gênero e 
grau! 


Operação TK90X e 
1 Introdução ao Basic 
* Sinclair 


Programação 
Basic TK90X 


Assembler Z-80 


Assembler Z-80 
Avançado 


2 
E 
4 


Criação e Programação 
de Jogos no TK90X 


q 


Criação e Programação 
de Aplicativos 
no TK 90X 


(edi 


FORTH no TK90X 


=J 


PROLOG no TK 90X 


Aplicações Profissionais 
do TK90X 


Logo para Crianças 


O 00 


1 


INSCRIÇÕES ABERTAS. 
VAGAS LIMITADAS! 


Informações e Inscrições: 


Rua Dr. Vila Nova, 228 
Tel.: (011) 255-0066 


É « 


informática 
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USP já é o maior parque 
individual de 16 Bits no Brasil 


A USP acaba de adquirir mais 400 
computadores da linha PCXT 2002, da 
Microtec, empresa de microcomputa- 
dores de 16 bits que novamente ven- 
ceu uma concorrência pública com a 
Universidade de São Paulo. Este lote 
de equipamentos vem se juntar aos 102 
computadores PC 2001, também da 
Microtec, comprados anteriormente 
para completar o plano de informatiza- 
ção da USP. Acompanham o lote 400 
impressoras Amélia, adquiridas em 
0O&M, e o Sistema Operacional DOS 
86, desenvolvido pela própria Micro- 
tec. 

Segundo o Professor Lucas Mosca- 
to, coordenador do projeto da USP, 
com estas 502 máquinas, a USP torna- 
se o maior parque individual de 16 Bits 
instalado no Brasil. No entanto, o pla- 
no de informatização prevê a aquisição 
de um total de duas mil máquinas. 


Estes equipamentos serão distribuí- 
dos da seguinte forma: 60% para o en- 
sino e 40% para pesquisa, abrangendo 
as cidades de São Paulo, Pirassunun- 
ga, Piracicaba, São Carlos, Baurú, 
Ubatuba (será utilizado em pesquisa de 
biologia marinha) e Marabá (Campo 
avançado da USP, em pesquisa com 
agricultura). Além dessas escolas, al- 
guns micros serão colocados em mu- 
seus do Estado de São Paulo, para 
controle de acervo e pesquisa históri- 
ca, já que todos os museus de São 
Paulo são controlados pela USP. 

O financiamento desse lote, cláusu- 
la obrigatória da concorrência, foi obti- 
do junto ao Badesp, com recursos do 
programa Pró-Info do BNDES. A USP 
terá um prazo de 6 anos para amorti- 
zação, com três anos de carência, no 
valor da'ORTN da época mais 3% de 
juros anuais. M.R. 


20 e 21/01 — Seminário: “Conhe- 
ça o IBM-PC e suas aplicações” — 
São Paulo, Compucenter — tel.: 
(011) 255-5988. 

De 20 a 24/01 — Introdução ao Lo- 
tus 1-2-3 — São Paulo — SENAC — 
tel.: (011) 255-0066. 

De 21/01 a 05/02 — Programação 
em Linguagem Basic | e ll — São 
Paulo — Apple Cursos e Sistemas — 
tel.: (011) 853-9457 ou 853-2408. 

De 27/01 a 05/02 — Lotus 1-2-3 — 
São Paulo — SENAC. 

De 27 a 31/01 — d-Base |ll — São 
Paulo — Servimec — tel.: (011) 222- 
1511. 

28 e 29/01 — Seminário: “Como 
processar textos como o Word” — 
São Paulo — Compucenter. 

De 29 a 31/01 — d-Base || — São 
Paulo — Servimec. 

17/02 (início) — Programação Ba- 
sic para microcomputadores — São 
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Calendário do Mês 


Paulo — FDTE/EPUSP/IPT — tel.: 
(011) 813-6208 ou 815-9322. 

17/02 (início) — Microprocessado- 
res A: Conceitos básicos — São Pau- 
lo — FDTE/EPUSP/IPT. 

17/02 (início) — Arquitetura de 
Computadores | — São Paulo — 
FDTE/EPUSP/IPT. 

De 17a 21/02 — Introdução ao Su- 
percalc-3 — São Paulo — SENAC. 

18/02 (início) — Lógica Computa- 


cional | — São Paulo — FDTE/ 
EPUSP/IPT. 

18/02 (início) — Linguagem FOR- 
TRAN — São Paulo — FDTE/ 
EPUSP/IPT. 

19/02 (início) — Sistemas Opera- 
cionais — São Paulo — FDTE/ 
EPUSP/IPT. 

20/02 (início) — Laboratório de 
Eletrônica Básica — São Paulo — 


FDTE/EPUSP/IPT. 
20/02 (início) — Engenharia de 


FENASI'86 


No período de 24 a 27 de abril vai se 
realizar, no Palácio das Convenções do 
Anhembi, o | FENASI'86 (Feira Nacio- 
nal de Acessórios, Suprimentos e Ins- 
talações para Informática). 

Sob a organização e realização da 
Apple Propaganda, este evento reuni- 
rá aproximadamente 70 empresas do. 
setor de suprimentos. Entre elas es- 
tão: a IBM do Brasil, Moore Formulá- 
rios Contínuos, Burroughs, Texprint, 
Data Ribbon e Vector. 

Em paralelo à Feira, estará sendo 
realizado o | ENFASI (Encontro Nacio- 
nal dos Fabricantes e Fornecedores de 
Acessórios, Suprimentos e Instala- 
ções para Informática), onde especia- 
listas farão palestras técnicas sobre o 
atual estágio do setor no País e as prin- 
cipais tendências mundiais. 

Segundo representantes da Apple 
Propaganda espera-se o compareci- 
mento de aproximadamente 25 mil visi- 
tantes selecionados, já que não haverá 
venda de ingressos. Os convites serão 
distribuídos entre os expositores. M.R. 


E 


Programação: Aspectos Metodológi- 
cos — São Paulo — FDTE/EPUSP/ 
IPT. 

24 e 25/02 — Seminário: “d-Base 
ll o Banco de dados do PC” — São 
Paulo — Compucenter. 


De 24 a 26/02 — Seminário: Admi- 
nistração Eficaz da produção do CPD 
— Técnicas e Processamento — São 
Paulo — Servimec. 

De 24a 28/02 — Wordstar para mi- 
crocomputadores compatíveis com o 
/BM-PC — São Paulo — SENAC. 


De 26 a 28/02 — Introdução ao 
CICS — Rio de Janeiro — CKL Trei- 
namento Empresarial Avançado — 
tel.: (021) 242-2912 ou 222-1609. 


De 26 a 28/02 — O uso do Micro- 
computador na Advocacia — São 
Paulo — SENAC. 

De 26 a 28/02 — Engenharia de 
Software — Rio de Janeiro — CKL. 


io 
bread 
mo 


Presidente 


Imagine-se no papel de um Presidente da República! 
Você agora é o chefe supremo de uma Nação 
chamada “Fratasia” e, neste papel, terá que enfrentar 
vários obstáculos. Entre estes, guerra civil, greves e 
crises econômicas. Estes são alguns dos objetivos 
deste jogo, onde você, como usuário, terá que 
vencer todos os desafios para permanecer no Poder. 


Este software é um jogo idealizado 
pela Multisoft Informática, para mi- 
cros compatíveis com o ZX Spectrum. 

O objetivo central do jogo é fazer 
com que o jogador mantenha-se, o 
maior tempo possível, dentro da estru- 
tura de Poder proposta pelo programa. 
Para conseguir tal meta, o Presidente 
deve ser um hábil articulador político, 
conquistando um bom índice de popu- 
laridade e equilíbrio nas finanças do 
País. 


Características gerais 


A estratégia do jogo baseia-se nas 
decisões tomadas pelo jogador frente 
às três situações apresentadas. 

A primeira refere-se às “audiências 
dos segmentos sociais internos”, que 
são, nada mais, nada menos, a prefe- 
rência popular pelo governante. 

A segunda diz respeito às “decisões 
presidenciais” a serem tomadas pelo 
governante. 

A terceira e última refere-se aos 
“acidentes nacionais” ou às situações 
difíceis pelas quais o Presidente terá 
que passar “ileso”. São as crises en- 


frentadas pelo País como epidemias, 
iminências de guerra, revoluções, etc. 
O caminho a ser escolhido pelo gover- 
nante pode ser orientado pelas seguin- 
tes bússolas: 


— relatório da polícia; 

— relatório do tesouro; 

— conselho e notícias vindas pelos 
jornais. 

O Relatório da Polícia serve para vo- 
cê analisar o contexto atual interno e 
externo do País. O Relatório do Tesou- 
ro lhe será útil para controlar as finan- 
ças do Estado. Lembre-se que a falên- 
cia do País fatalmente implicará na cas- 
sação do seu mandato. O Conselho lhe. 
servirá para ponderar sobre a conve- 
niência política e econômica de qual- 
quer decisão e as Notícias para você 
tomar conhecimento dos momentos 
críticos por que passa “Fratasia””. 


Funcionamento do Presidente 


Ao carregar o programa, pressione 
qualquer tecla e o jogo iniciará com sua 
apresentação. Sua forma “auto-expli- 
cativa” facilita seu manejamento. 


Paulo Panagiotis Alvanos 


As decisões começaram ;a ser co- 
bradas pelo Programa e, seja qual for 
sua resposta, sua popularidade muda 
nos meios sociais. 

O jogo apresenta pouca resolução 
gráfica, mas bem definida e encaixada 
em partes certas do programa. Sua so- 
norização é boa, tocando marchas em 
partes decisivas tais como a marcha fú- 
nebre e o Hino Nacional. Os sons de 
batalhas são os mais realistas possi- 
veis, tornando interessante o jogo e 
quebrando, às vezes, sua monotonia. 

Detalhes mais profundos podem ser 
lidos num pequeno manual que acom- 
panha a fita. Este tem uma linguagem 
simples e fácil de ser entendida. 


Comentários finais 


Este é um ótimo jogo para desenvol- 
ver seu raciocínio e não há limite de 
idade para jogá-lo. 

Com um pouco de paciência, você 
poderá desenvolver sua estratégia, se 
familiarizando com o micro e com o 
programa. Este software pode ser en- 
contrado na Mesbla, Mappin (em São 
Paulo) e em lojas especializadas. EE 
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Assembler Z80 


Desenvolva suas próprias 
rotinas em Assembler Z80 


Paulo Panagiotis Alvanos 


Este software, desenvolvido pela 
Multisoft Informática Ltda. para micros 
TK 83/85 de 16k e 48, tem como ob- 
jetivo compilar um programa fonte em 
Assembly (processador Z80) para o có- 
digo de máquina. 

Sua utilização não vai ensiná-lo a 
programar em Assembler mas, auxiliá- 
lo em seu estudo. 


Características de seu uso 


Após o “Assembler Z80” ser carre- 
gado aparecerá na tela o código de er- 
ro “1/0”, isto indica que o programa 
foi carregado corretamente e passará a 
ocupar 5k de memória. 

Para se entrar com o programa em 
Assembly é necessário digitar as ins- 
truções em linhas REM, respeitando o 
padrão de mnemônicos, ZILOG Z80, 
exceto as vírgulas que devem ser subs- 
tituídas por pontos. É permitido mais 
de uma instrução por linha desde que 
estejam separadas por "';” (ponto e vir- 
gula). Para estes pequenos detalhes a 
fita é acompanhada de um pequeno 
manual, que apresenta mais caracteris- 
ticas de sua programação com peque- 
nos exemplos*e todos os mnemônicos 
que podem ser utilizados. 


Comentários Finais 


O programa é destinado àqueles que 
pretendem se aprofundar em lingua- 
gem Assembly, o programa não é 
auto-explicativo mas, tem um bom ma- 
nual. 

Sua comercialização já está sendo 
feita e pode ser encontrado em Lojas 
do ramo. E 
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Compilador Basic 


Definição do que é um compilador 


O Compilador transforma um pro- 
grama escrito em Basic num progra- 
ma equivalente, em código de máqui- 
na, código no qual seu TK-90X sempre 
está trabalhando. 

O Basic utilizado por você, para es- 
crever seus programas, é compreen- 
dido pelo TK-90X porque existe na 
ROM deste equipamento o conhecido 
“interpretador Basic”. Este é escrito 
em código de máquina, pois a CPU 
não compreende a linguagem Basic. O 
computador desperdiça muito tempo 
ao rodar um programa em Basic, pois 
necessita sempre “traduzí-lo” para a 
CPU, por isso a necessidade de se pos- 
suir um compilador. 

Uma vez que seus programas te- 
nham sido compilados neste código, 
serão processados, em média, dez ve- 
zes mais rapidamente do que no Basic. 

O CBASIC “Floating Point” (ponto 
flutuante) permite a você determinar 
em qual endereço da memória deve si- 
tuar-se o código compilado. 

A vantagem deste compilador é que, 
após a compilação, seu programa Ba- 
sic permanece na memória para even- 
tuais correções, evitando a necessida- 
de de ter que recarregá-lo. É permitido 
também compilar sub-rotinas. 

O CBASIC FP é comercializado em 
duas versões: 16k e 48k. O de 16k tam- 
bém pode ser “rodado” em um TK- 
90X de 4&. 

Seu uso. é bastante simples, basta 
digitar ou carregar seu programa Basic 


Figura 1 


END. DAS 


Mapa da Memória 


RESERVAS 
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a ser compilado. Feito isto, digite 
RAND USR 59300 (para 48k) ou 26600 
(para 16k). 

Enquanto o compilador passa pelo 
seu programa, várias mensagens serão 
exibidas. Algumas destas são: 


endereço inicial; 

endereço final; 

fim variáveis; 

erro/sem erros. 
Após a compilação, seu programa 
Basic permanece na memória. 

As matrizes alfanuméricas utilizadas 
só podem ser unidimensionais, as 
Strings são totalmente flexíveis e po- 
dem ter qualquer comprimento não 
sendo limitado como no Basic. O CBA- 
SIC FP pode manipular todas as fun- 
ções, inclusive SIN, COS, ATN, etc. 

O mapeamento do CBASIC FP, na 
memória de seu TK-90X, é realizado 
conforme ilustra a figura 1. O progra- 
ma compilado é sempre carregado na 
RAM, de modo que possa rodar um 
byte acima da RAMTOP. O CBASIC 
deve estar na memória quando o códi- 
go é requisitado para rodar o progra- 
ma em Linguagem de Máquina, pois o 
código compilado usa “rotinas run-ti- 
me” (por tempo) no compilador. 

Este programa está sendo comercia- 
lizado em fita cassete, e pode ser en- 
contrado nos revendedores autoriza- 
dos da Microdigital Eletrônica, em São 
Paulo. Entre eles estão: Mesbla, Fo- 
tóptica, Mappin e outros. E) 


pr 169! ISO, cê 


; VOR | ALFANUM.| $ COMPIL. 


VARIAVEIS 


| 130 BYTES 


RESENHA DE SOFTWARE 


Se o seu fraco é a Matemática, ou 
melhor, as Funções Matemáticas, a 
Multisoft Informática Ltda. adaptou 
para os estudantes o programa Fun- 
ções que roda em micros da linha TK 
90X de 16k e 4&k. 

O desenvolvimento deste software 
foi feito em Basic com rotinas de cál- 
culo em Assembly, para agilizar o seu 
processamento. A utilização deste pro- 
grama não requer do usuário um co- 
nhecimento profundo em funções, 


Funções 


pois o programa é totalmente auto-ex- 
plicativo. 

Ao se carregar o programa na me- 
mória, ele entrará rodando e surgirá na 
tela a palavra “funções” em alta-reso- 
lução e após isso, começa automatica- 
mente o programa. 


Divisões do Programa 


Dividido em menus, o programa ofe- 
rece zeros, derivadas, máximos, míni- 


Paulo Panagiotis Alvanos 


mos, gráficos e áreas das funções de- 
sejadas. O acompanhamento não é 
difícil, pois sua própria explicação pula 
passo a passo, dando exemplos de 
funções e formas sob as quais o usuá- 
rio deve operar. 


Não existe manual para este softwa- 
re, apenas um folheto que indica as 
formas de funções que o programa 
aceita e a respeito de sua auto-expli- 
cação. EE 


Como Colaborar com a 


Vocês sabem: O trabalho executado 
pela Microhobby conta muito com o 
apoio de seus leitores. Seus principais 
colaboradores são vocês, que nos lêem 
todos os meses e têm-se mantido leais 
desde o seu início. 

Sabendo disto, a Revista dedica boa 
parte de suas páginas aos trabalhos rea- 
lizados pelos usuários do Apple, 
TK-2000, TK-85, e o mais recente 
TK-90X. Pensando nisto foi que estipu- 
lamos algumas regras para podermos 
atender, da melhor forma possível, as co- 
laborações enviadas por nossos leitores. 

Desta forma, aqui estão algumas ob- 
servações à vocês que desejam enviar 
seus programas, para análise de nossa 
Redação: 


MIGRO 


1 - Envie o texto referente ao progra- 
ma, explicando todas as fases de sua es- 
truturação, principalmente naqueles as- 
pectos onde vocês acham que possa re- 
dundar em dúvidas para outros usuários. 
Este texto deve ser datilografado. 


2 - Envie fita gravada, duas vezes, ou 
disquete (quando o programa for do 
TK-2000 ou Apple). 


3 - Envie, junto com o material acima, 
carta - de autorização para posterior pu- 
blicação (no caso do programa ser apro- 
vado). Nesta carta devem constar tam- 
bém nome completo, endereço e telefo- 
ne para contato, além dos dados pes- 
soais como: RG e CIC. 


HOBBY 


No caso de aprovação dos artigos téc- 
nicos e/ou programação, os colaborado- 
res serão comunicados sobre sua poste- 
rior publicação via-carta ou telefone. 

As colaborações serão remuneradas 
de acordo com os parâmetros estipula- 
dos pela Redação como: nível de estru- 
turação lógica; recursos utilizados em 
Basic ou Assembly; nível de aplicabilida- 
de e interesse para o leitor, o texto- 
explicativo enviado e, principalmente, a 
criatividade empenhada no desenvolvi- 
mento do programa. 

Esperamos as colaborações! 


A editora. 
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RESENHA DE SOFTWARE 
Editor Basic para o TK-2000 


Este programa, desenvolvido pela 
Multisoft Informática, é destinado a 
acrescentar recursos de edição ao TK- 
2000 Color. Por intermédio deste soft- 
ware, O usuário poderá corrigir as li- 
nhas do programa previamente inseri- 
das na memória do equipamento. 

Para efetuar qualquer alteração nas 
linhas do programa, basta listá-las, uti- 
lizando-se das seguintes teclas de con- 
trole: CTRL -Ze |, J, K, M, alcançando 
o local a ser modificado e finalmente 
entrar com os dados. 

Em outras palavras, Editor é um pro- 
grama em Linguagem de Máquina com 
a função de auxiliar nos trabalhos de 
edição, em programação Basic. 

Como Carregar o Programa 


Você deverá carregar o programa 
utilizando-se do Modo Monitor. Para 


Sapatas — Um programa de 


Este software, destinado aos micros 
TK-2000, calcula sapatas de concreto 
armado sendo, portanto, específico 
para o emprego na área de Engenharia 
Civil. 

O programa manipula algumas infor- 
mações acerca do pilar, do concreto e 
do solo, fornecendo resultados por 
uma interessante representação da fi- 
gura da sapata em perspectiva. 

Após a carga do programa, o vídeo 
mostra o quadro de apresentação. 
Sendo assim, o usuário deverá pressio- 


entrar no Modo Monitor, a partir do 
Basic, digite LM" e RETURN. Então o 
simbolo de arroba aparecerá na tela, 
em seguida digite 'R”, que possibilitará 
a leitura da fita. Ao iniciar a carga da 
fita, surgirá a seguinte mensagem na 
tela: 


“EDITOR 0100 WAIT” 

Após alguns segundos, será emitido 
um BEEP e a mensagem passará a ser: 

“EDITOR 0101 WAIT” 

Mais um BEEP será emitido e depois 
de alguns instantes a tela começará a 
ser preenchida por riscos horizontais. 

O final da leitura será indicado por 
um terceiro BEEP. Sendo assim, a tela 
será limpa e o cursor aparecerá no can- 
to superior esquerdo. A carga do EDl- 
TOR não altera programas em Basic, 
existentes na memória. 


nar qualquer tecla, para que apareça o 
quadro de dados da sapata. 

Logo em seguida, o programa solici- 
tará o fornecimento dos valores neces- 
sários para o cálculo da construção. As 
faixas de validade de cada dado esta- 
rão expostas na tabela 2. Desta for- 
ma, forneça o primeiro valor. No caso 
de erro, durante a digitação, use a te- 
clag—Spara apagar os caracteres e de- 
pois acione a tecla<RETURN>. 

Ao final desta operação, depois de 
fornecido o último valor, aparecerá 


Tabelas dos códigos utilizados e das correspondentes unidades de medida 


Significado 


Tensão de Ruptura do Concreto 


Taxa do Solo 
Lados do Pilar 
Carga do Pilar 


Lados da Sapata 
Altura da Sapata 


Altura Auxiliar 


Armadura 2º direção A ou C 
Armadura 2º direção B ou D 
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Unidade 


Kg/cm? 
Kg/cm? 
em 
Toneladas 
em 

em 

em 

cm 

cm 


Marcos Lorenzi 
Modo de Operação 


O processo adotado para edição é 
do tipo TELA, exigindo que o texto a 
ser editado esteja no vídeo. 

A edição é feita em duas etapas: 

1. deve-se mover o cursor até a linha a 
ser editada, utilizando as teclas de 
“movimentação neutra”. 
2. deve-se “digitar”, com as teclas de 
“movimentação horizontal”, ao 
mesmo tempo que se corrige o texto 
existente. 

O Editor Basic, além de corrigir tex- 
tos, também “copia textos”, “insere 
textos” e executa outras funções. Pa- 
ra se obter maiores detalhes sobre es- 
tas funções citadas, basta dar uma li- 
da no manual de instruções que acom- 
panha a fita, onde este apresenta um 
texto de fácil entendimento. EE 


Engenharia 


Marcos Lorenzi 


uma mensagem na tela, a qual você 
poderá aceitar ou não. 

No caso dos valores fornecidos, por 
você, serem insuficientes, haverá um 
alerta do programa e estes serão elimi- 
nados, devendo ser substituídos por 
outros. 

O programa fornece ainda, ao usuá- 
rio, a opção de fazer alterações em al- 
gum valor caso deseje, ao final da ope- 
ração. 

Havendo desproporcionalidade nos 
valores colocados, ocorrerá uma men- 
sagem de erro. Neste caso, o progra- 
ma retorna ao quadro de apresenta- 
ção. 

Abaixo fornecemos uma tabela 
exemplo dos dados utilizados no pro- 
grama para o cálculo das sapatas: 


| TABELA 2 


1— F= 100a 300 2-S=0.1a10 
3-A=1a999 4-B=-1a999 
5B-—P=1a9999 6-—-C=1a2000 


7—-D=1a2000 


Arquivos 


Aqui você tem acesso a um bom aplicativo 
para guardar a sua coleção de fitas. 


Se você for do tipo que coleciona fitas de programas 
mas não sabe em que condições está a sua coleção, chegou 
a hora de montar um arquivo mais organizado. Com o auxi- 
lio de um TK 90X, toda essa bagunça será deixada de lado. 
Este utilitário pode ser “rodado” no TK 90X de 16K ou 48K, 
bastando para isso cadastrar as informações que mais lhe 
interessam e dessa forma você passará a ter ajuda para or- 
ganizar sua própria biblioteca. 
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A digitação do programa é simples, basta seguir os pro- 
cedimentos habituais que o usuário normalmente segue. 


O programa é composto de um Menu Principal que 
possui sete itens. Todos os itens são auto-explicativos, não 
trazendo dificuldade para seu entendimento. 


Com este utilitário não será permitido desculpas do 
tipo: “minha coleção está bagunçada””. 
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Faça amigos na INFORMÁTICA 


Na ENG, você encontra 

microcomputadores 

compatíveis 

às principais linhas do 
mercado (Sinclair, MSX, Apple, 


IBM - PC%, impressoras e 
Software. 


Na ENG, a amizade é um fator 
fundamental, onde você 
encontra preços amigos, 
software clube, Faça uma visita aos seus 
e os seus amigos. amigos na informática 


* marcas registradas 


ENG Computadores — Show Room 
Av. dos Tajurás, 406 
Cidade Jardim (011) 813-7570 
São Paulo — SP — 05670 
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APLICAÇÕES DO MICRO 


Um TK na Engenharia Florestal 


Imagine um pequeno Spectrum fa- 
zendo a avaliação de um grande pro- 
jeto de engenharia florestal e fornecen- 
do toda a sua projeção financeira, en- 
volvendo custos, investimento neces- 
sário e aplicabilidade durante o espaço 
de tempo necessário para sua execu- 
ção. Este tipo de aplicação é mais uma 
das várias experimentações que vêm 
sendo feita pelos usuários brasileiros 
de computadores pessoais. No nosso 
caso, o autor da inovação é um jovem 
professor da Faculdade de Engenharia 
Florestal da Universidade de São Pau- 
lo em seu campus, na cidade de Pira- 
cicaba. 

Luiz Carlos Estraviz Rodriguez é pro- 
fessor auxiliar do departamento de Sil- 
vicultura e no último semestre de 85, 
utilizou o pequeno TK 90 X em suas 
aulas de Economia de recursos flores- 
tais e Política, legislação e administra- 
ção pública. 

Trabalhando há aproximadamente 
um ano com o pequeno TK, Luiz Car- 
los já desenvolveu vários programas, 
na maioria aplicativos e educacionais. 
Os que mereceram maior atenção por 
parte de seus alunos foram o progra- 
ma de gráficos e o que efetua a análise 
financeira de um projeto. 

Das principais dificuldades encontra- 
das com o equipamento, Estraviz cita 
apenas à referente ao defeito encon- 
trado no micro, logo no início. “O pro- 
blema localizava-se na entrada de vi- 
deo”, disse ele. 
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Superadas as dificuldades, Luiz Car- 
los adotou o TK-90 X em suas aulas 
práticas. 


Primeira experiência: 
um programa de gráficos 


Um programa de gráficos utilizado 
nas aulas de Economia foi o primeiro 
trabalho feito pelo professor: “através 
deste programa, os alunos podiam vi- 
sualizar a curva de produção de um de- 
terminado projeto, analisando o fator 
de produção ou a mão-de-obra dispo- 
nível, pela quantidade produzida”. 
“Gráficos”, conforme ilustrou Estraviz, 
fornece ao seu usuário, através de uma 
equação matemática, uma curva-gráfi- 
ca que permite-lhe estudar as funções 
matemáticas através da mesma, po- 
dendo optar ainda, por limitações de 
tamanho. 


Este primeiro programa oferece tam- 
bém Menus, que possibilitam a esco- 
lha de determinadas funções matemá- 
ticas como, por exemplo, SIN X * COS 
Y, compreendidas entre dois interva- 
los (um positivo e outro negativo), às 
quais o usuário pode, posteriormente, 
traçar sua respectiva representação 
gráfica. 


No final, o programa pergunta se O 
usuário deseja recomeçar com a mes- 
ma opção escolhida por ele, ou se de- 
seja mudar a sua função. 


Ana Lúcia de Alcântara 


Para o professor, o programa “Grá- 
ficos” é um valioso instrumento didá- 
tico, bastante útil na Matemática de 
segundo grau. 

Luiz Carlos em suas experimenta- 
ções com o TK-90 X tem usado, além 
dos aplicativos, os famosos jogos. Um 
destes jogos é o Pac-Man, que Carlos 
alterou em alguns aspectos e que tem 
sido bastante útil em suas horas vagas. 


O micro num projeto florestal 


Mas, o maior destaque de suas ex- 
perimentações tem sido, com certeza, 
o programa de Avaliação de Projetos. 
Ainda em fase de conclusão, este pro- 
grama, segundo Estraviz Rodriguez, 
fornece todas as informações necessá- 
rias para o engenheiro determinar a 
viabilidade ou não de determinado pro- 
jeto. 

No momento, conforme ressaltou o 
professor da USP, falta acrescentar 
mais opções de escolha nos Menus e 
melhorar a apresentação visual do pro- 
grama. 

“Avaliação de Projetos” efetua a 
análise financeira de um projeto de sil- 
vicultura (ciência que tem como obje- 
tivo o estudo e a exploração de flores- 
tas) em um determinado período de 
tempo, pré-estipulado, partindo de um 
investimento inicial, baseado em cus- 
tos anuais ou não, a partir do ano zero 
ou do momento em que se comprou a 
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terra, passando posteriormente, para a 
fase de instalação da cultura no campo 
(por exemplo, o milho). 

Para apresentar sua criação, O pro- 
fessor deu-nos o exemplo de um proje- 
to a ser implantado em cinco anos e 
disse: “digamos que, à primeira vista, 
um determinado projeto pareça inte- 
ressante. Mas, como provar que, apli- 
cando 200 ORTNs hoje, na implanta- 
ção de uma cultura, ela fornecerá re- 
torno daqui há cinco anos?”, indagou, 
acrescentando: “para que possamos 
ter acesso a estes dados, a variável ju- 
ros reais tem que ser inserida nesta 
análise juntamente com o aspecto tem- 
poral de desvalorização do dinheiro”. 

Considerando estes aspectos, Luiz 
Carlos introduziu dois setores de análi- 
se em seu programa. No primeiro, o 
computador dá ao usuário a quantida- 
de de anos prováveis para que o inves- 
tidor recupere o dinheiro aplicado na 
execução do projeto. Para conseguir 
estes dados o investidor usará, de 


error 


Simulador de Vôo, Pinball 
& Pac-man, Túmulo do Drácula & Froger. 
Programas e instruções totalmente em português. Preço unitário dos jogos Cr$ 48.400. 
Simulador de Vôo (analisado na MICROHOBBY nº 26) Cr$ 59.300. 


acordo com o criador do programa, 
uma fórmula onde se insere o investi- 
mento, a receita e a quantidade de 
anos. 

O segundo critério adotado no pro- 
grama foi denominado Taxa de Retor- 
no Simples. Neste, o usuário tem aces- 
so à porcentagem de retorno de seu in- 
vestimento, logo no primeiro ano. 

Para incrementar seu programa 
“mais famoso”, Rodriguez acrescen- 
tou também outros critérios de avalia- 
ção como: o valor líquido presente, 
que dá a previsão futura do caixa exis- 
tente no presentes 

“O programa fornece as receitas de 
cada ano, levando-se em conta o in- 
vestimento inicial”, explainou. 

No critério de relação custo/benefí- 
cio, o programa elabora a somatória 
dos custos, comparando com as recei- 
tas obtidas (ou os benefícios) à uma ta- 
xa de juros determinada, e oferece ao 
investidor, a viabilidade ou não do seu 
projeto na época de sua conclusão. 


APLICATIVOS TK 90X 


O ARTISTA - Excelente programa destinado a geração de gráficos incluindo: Ampliação; 
rotação; espelho; espessura variável de pincel; 
mais. Acompanha manual detalhado. 

CONTROLE DE ESTOQUE - Permite controlar de modo efetivo o estoque de até 900 itens 
incluindo especificação, número dé peças, você poderá registrar o fornecedor, 
e número mínimo de peças para recomposição do estoque. 

Os programas O ARTISTA e CONTROLE DE ESTOQUE estão gravados em fita K-7 acondi- 
cionadas em luxuoso estojo plástico. 


JOCOS . TK 905 


& Space Invaders, 


Para receber os programas envie cheque nominal 
LTDA - Caixa Postal 17.005 - CEP 02399 - SP. Remessas em 5 dias úteis. 
Revendedores E ra 


ta : Jumbo Mappéte SANDI IZ 


Meteor Storm & Míssil, 


Este programa apresenta inúmeros 
recursos e o que mais o caracteriza é O 
detalhe dele não possuir instruções em 
Linguagem de Máquina, pois foi todo 
ele, segundo seu criador, desenvolvi- 
do em Basic. 

Estraviz Rodriguez faz questão de 
afirmar que seu programa não está 
concluído, pois, entre os critérios de 
avaliação existentes, ele pretende ain- 
da acrescentar outros como: a variável 
“valor esperado da terra” (qual a me- 
lhor área de solo para a implantação do 
projeto) e a “até que ponto posso pe- 
gar um hectare de terra para implan- 
tar o projeto, à uma determinada taxa 
de juros”, ilustrou o professor. 

Atualmente, o maior desejo de Ro- 
driguez tem sido a aquisição de uma 
impressora pois, conforme explicou, 
ela lhe possibilitará um maior dimen- 
sionamento de seu trabalho: 

— “0 que mais atrapalha no desen- 
volvimento de meus programas é a 
gravação em fita cassete”. 


pincéis com padrões variados; e muito 


preço 


Preço unitário Cr$ 99.900. 


Campo Minado 


UTILITÁRIOS TK 2000 
ROM 2000 & Disk-7, Graphs 2000. Preço unitário dos utilitários Cr$ 59.300. 


JOGOS TK 2000 


Xadrez & Out Post, Space Eggs, Grand Prix & Asteroids, Gammagoblins & Galaxians, 
Falcons, Eliminator, Ceiling Zero, Bolo, Simulador de Vôo. 
Preço unitário dos jogos Cr$ 48.400. Simulador de vôo Cr$ 59.300. 


cruzado à CIBERTRON ELETRÔNICA 
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Criando Um Índice AHabético-lll 


Estamos apresentando nesta edição 
a terceira e última parte do sistema de 
Agenda Telefônica. 

Com estes dois programas, que aqui 
estão, encerramos as opções apresen- 
tadas no menu principal do sistema. 
São as chamadas Pesquisas Gerais e 
Aniversariantes. 

A esta altura dos acontecimentos es- 
tamos pressupondo que você já pos- 
sua, gravado em disco, as duas partes 
anteriores do sistema, que foram for- 
necidas nas edições número 25 e 26, 
respectivamente. Se você já as possui 
siga em frente com a leitura do artigo e 
posterior entrada do programa, toman- 
do o devido cuidado de digitação. Não 
se esqueça de colocar a linha 265, 
que é responsável pelo DiMensiona- 
mento das matrizes que o programa 
utiliza, e também de carregar as partes 
já digitadas antes de começar esta 
nova. 


O programa 


Estando no menu principal do siste- 
ma, escolha a opção de número 5. Fei- 
to isto o programa será desviado para a 
linha 5000, onde tem início o bloco res- 
ponsável pelas Pesquisas Gerais. Logo 
em seguida, será apresentada uma te- 
la contendo todos os campos do arqui- 
vo de dados (AGENDA/DADOS.TXT), 
seguida de uma pergunta. Digitando o 
número correspondente à escolha, o 
programa perguntará pelo identifica- 
dor da pesquisa (ID$). A partir deste, o 
programa iniciará uma pesquisa se- 
quencial no arquivo, procurando en- 
contrar todos os registros que pos- 
suam o campo pesquisado, igual ao 
identificador. A medida que um regis- 
tro é encontrado, o programa adiciona 
1 à variável NR (número de registros) e 
salva o número do registro em questão 
na matriz de registros encontrados (RZ 
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(NR) ). Deste modo, terminada a bus- 
ca em todo o arquivo, a matriz referi- 
da conterá todos os números dos NR 
registros encontrados, podendo apre- 
sentá-los na tela, posteriormente. 

Na apresentação dos registros en- 
contrados, a tela montada possui no 
canto superior direito duas indicações: 
TOTAL &*(nn) e ATUAL (nn). 

O número total representa quantos 
registros do arquivo foram encontra- 
dos com aquele identificador comum, 
enquanto que o número ATUAL repre- 
senta a posição relativa do registro que 
está sendo mostrado em relação ao to- 
tal. Esta posição pode ser alterada atra- 
vés das teclas de controle “—»”" e 
“«—”, que incrementam e decremen- 
tam o número atual, respectivamente. 

Como observação final, convém 
lembrar o método utilizado para esta- 
belecer a igualdade dos campos na 
procura. Um campo será considerado 
igual ao identificador, quando este 
possuir pelo menos o número LEN 
(ID$S) de caracteres iguais ao identifi- 
cador (linha 5220). Desta maneira, se 
quisermos encontrar todas as pessoas 
que possuam o prefixo de telefone 521, 
por exemplo, deveremos escolher o 
campo TELEFONE para a pesquisa, e 
fornecer 521 como identificador. O pro- 
grama mostrará todos os registros que 
possuam o campo TELEFONE na for- 
ma 521-XXXX. 

O bloco que começa na linha 6000 é 
responsável pela apresentação dos 
Aniversariantes de um determinado in- 
tervalo do ano. 

Ao entrar com os limites, certifique- 
se de estar entrando com um intervalo 
lógico, ou seja, limite inicial menor ou 
igual ao limite final. Caso isto não seja 
obedecido, uma mensagem de erro se- 
rá enviada e você terá chance de reen- 
trar o dado. 

Aqui também é realizada uma pes- 


Cesar de Afonseca e Silva Neto 
e Wilson José Tucci 


quisa ao arquivo, a fim de encontrar os 
registros que possuam a data de ani- 
versário pertencente ao intervalo for- 
necido. À medida que vão sendo en- 
contrados os dados referentes ao NO- 
ME, DATA e CHAVE DE PROCURA 
são armazenadas nas matrizes NO- 
MES( ), DT$S () E CODS (), respectiva- 
mente. Logo em seguida, os valores 
encontrados são apresentados 12 a 12, 
por página. 

Como observação gostaria de dizer 
que esta função, ANIVERSARIAN- 
TES, pode ser de grande utilidade no 
caso de você esquecer alguma chave 
de procura, o que tornaria o registro 
quase que inacessível. Neste caso, o 
problema seria resolvido através de 
uma pesquisa de aniversariantes com o 
limite total, ou seja, de 01/01 a 31/12. 
Assim, o nome, a data de nascimento 
e o código (chave de procura) de todos 
os integrantes da agenda seriam apre- 
sentados. 

Bom proveito! 


Variáveis Utilizadas 


Pesquisas Gerais 


identificador 

contador (atual) 

registro a ser lido 

matriz dos registros encontrados 
número de registros encontrados 


CT 
RX. 
RZ( ) 
N 


ANIVERSARIANTES 


R 
FUNÇÃO 
L1 


limite inicial 

limite final 

valor encontrado 

número de registros encontrados 
contador de página 

número de linhas por página 
total de páginas 

matriz de datas 

matriz de nomes 

matriz de chaves de procura 


Essas H 


RR 


SD0 REM PESQUISAS GERA 


iõ 
020 INVERSE + HTAB B: F 
I=i TO LEN NH: VTá 


JU 
15 
o6iu HOME 
SU 
OR 
B cs PaTHT 


NOS (N$,1,1); 


INT “PESSU asa 
S GERAIS FOR 
3940 NR = 0 
050 VTAS 3:H = à0 
5040 FOR I=i TONA H 
Tas Hz PRINT 
SPEC IC do 
1; CHARS 
(93), SPE( 2): NCG(I): NEX 
i 
9070 UTÊB 292 HTAS 40: 1 
NPUT “OPCAO ( 
D=FIM) =) “.0P 
S080 IF OP» NCX THER P 
RINT CHRS (7 
je: GOTO 5070 
5090 IF OP = Q THEN DO 
3100 VTAB 5: Câll - S55 


»; CHRS (91); 


Síil0 UTAR 23: TAB fá: 1 

NUERSE E PRINT “SESC VOLT 
à àO MENU “2 NORMAL 

si20 VTAB 10: PRINT “PES 

QUISA POR “sN 

CE(0P) 

9130 VTAB fez PRINT “IDE 


NTIFICADOR”; SPCC 2)2V = 
cid = PEER (Q6) + dilN = 
L 


tOPj: GOSLE 45800 
9140 TF QUIT THEN 5000 
3150 IF PS = “2 THEN G13 


Í 

9160 1D& = P$: REM IDENT 
IFICADOR 

9170 REM REALIZAR PROCU 
RA 

9180 PRINT D5:"0PENC.ARO 


S!,Lºs TRA 
5490 FORR=4 TON 
s200 PRINT DS;“READ" ARG 
dade DEE 


E FOR I=[ TC 
NPUT DESCI): NEXT 
g2e0 IF ID5= LEFTS (DC 
S(0P), LEN (1 

D6)) THEN NE = NR + i:RZ( 


NOM: 1 


+ 5: REM NAO 
õ 


30 ET = dz GOTO 5350 

40 REM CONTROLE DE CO 

70 GET ASA = ASE (AS 
3280 IF À = 
ET +i 

390 IF A = THENCT= 

ET -1 

3300 IF CTA di THENCT= 
1: GOTO 5270 


ei THEN CT = 


IF À = 27 THEN 5000 


IF CT > NR THEN CT 
: GOTO 52 


REM LER O REGISTRO 


3340 RX = RZÉCT) 
3330 PRINT DS; READ". ARO 
52”, R“SR 
3360 FORI=4 TON: I 
NPUT DCS(I): NEXT 
a370 PRINT DS 
9380 REM APRESENT 

3390 BStOP) = Ea 
GERAIS" 
5400 GOSUB 15900 
géil VTAB 5: HTAB 30: ! 
INT “TOTALK”; 


5420 VTAB 7: HTÃB SU: 
INT “ATUAL H” 


z Birço 
: IRVERS 


2 PRINT CT: 


5430 VTAB 23: 

PRINT “4-/-)M 

OUIXENTAM CAMPO --(ESC) E 

END“ .: NORMAL 

5445 VTAB VI 

5450 FOR I=4 TONI 

5440 HTAB HI 

5470 IF I=OPTHEN IN 

ERSE : PRINT 

DESCI): NORMAL 2 dO 

0 

5480 PRINT DESCI) 

5490 NEXT 

Ss00 GOTO 260 

S00G REM ANIVERSARIANTE 

5 

6040 HOME 

á020 INVERSE 2 HTAB B: F 

08 1 =4 T0 LEN (NG): vTA 
; PRINT MIDS 155,1 14); 
E PEEK (34) +14 

: NEXT 3 NOgHA 


INVERSE : 


TO 549 


604D VTÃS 9: HTÃB O: PRI 
NT “ENTRE À D 

ATA INICIAL 2” 

6050 VTAB fiz HTAR 13: P 
RIBT “DATA F 

NAL à! 

6060 V = S:h 

: GOSiB 15800 


ó070 JF PS =" THEN 606 

0 

ético IF MIDS (P4,3,1) € 
PO ORRI 

GTHS(PS,2) ) “io” OR LEF 

75 iPã,2 

o vaga OR 

) 5 THEN 

aBé0 

8090 Li = PS 

ain Li = do ( MIDS (PS 


LEN (PR) é 


6120 IF PS =" THEN 614 
£ 
6430 IF MIDS (P$,3,4) ( 
> e ORRI 
GTHS(P$,2) ) “12"0DR LEFT 
5 (P$,9) 
+ “34ºOR LEN (PS) (DS 


L25 = P5 
áis0 L2 = Val ( MIDS (PS 
A,2)) + VAL 
C MIDS (P6,4,0)) * 34 
5160 IF L2) = Li THEN 
240 
6170 VTAB 23: INVERSE 3 
PRINT “ERRO |! 
- DATA FINAL « DATA INIC 
TáL”: NORMAL 
8180 GET R$ 
5170 UTAB 23: CALL - 86 
B 
“zD0 GOTO 4440 
4240 REM REALIZAR PROC 
URA 
6220 PRINT D5;“OPEN” ARQ 
Gs, LESTRE 
6230 FORR=4 TON 
240 PRINT D5:"READ“,ARQ 
Es" R“aREGZ 
ses0 FORI=4TONCZI 
PUT DESCI): NEXT 
6250 LX = VAL ( MIDS (DE 
$(9),1,2)) + 
VAL ( MIDS (DCS(9),4,2)) 
* 
8270 IF LXC Li ORLX) 
LZ THEN 6340 
6280 NR = NR + 1:NOMES(NR 
) = DESti) 
8290 CODS(NE) = DCS(3) 
4300 DTS(NR) = LEFTS (DC 
9,2) +47 
+ RIGTES IBHTS(DCS(9),2) 
é310 NEXT 
6320 PRINT DS; E 
4330 REM APRESENTA 
é340 HOME ae 


Continua na página 35 
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Carta do Meio 


“Carta do Meio” foi desenvolvido pelo nosso leitor, 
George Bezerra Cavalcante Leite. Este jogo é 
compatível com os micros da linha Apple e roda 


Ocupando de memória RAM, “Carta 
do Meio” desafia você a um disputado 
jogo de cartas. Mas cuidado, o desafio 
não é tão fácil e o caminho para a vitó- 
ria exige bastante de sua percepção e 
destreza. Além do mais, o jogador de- 
ve possuir conhecimento de todas as 
cartas do baralho e, é claro, pedir para 
que sua sorte o ajude. 

Prepare-se! 

O banqueiro da mesa de jogo distri- 
bui as cartas. Duas cartas abertas se- 
rão entregues a você. Em seguida, o 
jogador deverá fazer a sua aposta. 

Porém, antes de arriscar-se nas 
apostas lembre-se de um pequeno mas 
inesquecível, detalhe: o banqueiro é o 
seu TK-2000, muito mais esperto que 
você! 


Início do jogo 


Ao dar início ao jogo, você dispõe de 
cem mil cruzeiros, os quais poderão ser 
aumentados ou diminuídos, dependen- 
do de sua sorte. 

Um detalhe: o valor da aposta nunca 
poderá ultrapassar a quantia que o jo- 


1 REM 
ones 
é REM 
MELO 
3 REM 
x 

4 REM 


ERR E 


*J060 DA CARTA DO 


ESCRITO 
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também no TK-2000. 


gador possui em mãos. 

Depois que a aposta for feita, o 
micro distribuirá uma terceira carta, 
que deverá ter um valor intermediário 
às duas primeiras. Se a terceira carta 
for igual à primeira ou à segunda, você 
perde, e fracassará também se ela for 
inferior à primeira ou superior à segun- 
da. 


Se você estiver temeroso e inseguro 
há a possibilidade de fugir da parada: 
basta para isto, digitar O (zero). 


Se ao contrário, você estivar com 
vontade de vencer, mas se sente mui- 
to cansado e deseja continuar o jogo, 
após um descanso, existe a opção de 
interromper a execução do programa, 
digitando qualquer número negativo. 


Tela de apresentação 


Logo de início o usuário tem à sua 
disposição uma tela de apresentação, 
que auto-explica o programa, forne- 
cendo-lhe um “caso-teste” do jogo. 
Observe na figura 1 o formato dessa 
tela. 


8 REM x GEORGE B.£, LE 


ITE + 

7 REM + 
E 

10 REM & 
F 


ii REN sesexssesasasaaaa 


01/11/85 


George Bezerra C. Leite 


Boa sorte, esperamos que consiga 
estourar a banca! 


Figura 1 


QUER JOGAR? (S/N) 

VOCÊ DISPÕE DE CR$ 100.000 

AS DUAS CARTAS LANÇADAS SÃO: 5 E 
REI 

FAÇA SUA APOSTA A SEGUIR: 50.000 

A TERCEIRA CARTA É: 3 

LAMENTO, MAS VOCÊ PERDEU 

VOCÊ DISPÕE DE CR$ 50.000 

AS DUAS CARTAS LANÇADAS SÃO: 2 E 
8 

FAÇA SUA APOSTA A SEGUIR: O 
ARRISQUE!!! 

AS DUAS CARTAS LANÇADAS SÃO: 2 E 
Às 

FAÇA SUA APOSTA A SEGUIR: 10000 

A TERCEIRA CARTA É: VALETE 

VOCÊ GANHOU!!! 

VOCÊ DISPÕE DE CR$ 60.000 

AS DUAS CARTAS LANÇADAS SÃO: 7 E 
VALETE 

FAÇA SUA APOSTA A SEGUIR: 60000 

A TERCEIRA É: 3 

QUE PENA! VOCÊ ESTÁ QUEBRADO 
QUE TAL TENTAR DE NOVO? 

QUER JOGAR? (S/N) 

TUDO BEM, FICA PARA A PRÓXIMA 


*aRERE 
1000 HOME 
1020 PRINT 
1030 PRINT TAB(C 4);7J06 
O DA CARTA DO 
MEIO” 
1050 PRINT 


Pos cáso (PSA | p= == E f a 
1040 PRINT 4330 IF A = 43 THEN 4420 1640 PRINT “ARRISQUE!!! 1900 GOTO 1970 
1070 8 = 100000 1910 PRINT “DAMA! 
1080 INPUT “QUER JOGAR? 1340 IF A = 14 THEN 1440 1650 PRINT 1920 GOTO 1970 
S/N)";AS 1460 GOTO 1240. 1930 PRINT “REI” 
1090 IF LEFTS (45,1) = 1350 PRINT A; 4670 IFM4 =Q THEN 17 1940 GOTO 1970 
CN” THEN 2180 1360 PRINTCE !; mn o 4950 PRINT “AS” 
| 4370 GOTO 4450 4680 PRINT TABCOD; 4960 PRINT 
1400 FOR I=4 TO 65 Á380 PRINT CUALETE E! 1490 PRINT “LAMENTO AMIG | 4970 IF ACC THEN 4990 
440 PRINT”; 4390 GOTO 1450 O, MAS VOCÊ! 4980 GOTO 2030 
1120 NEXTI 4400 PRINT “DAMA E “; | 1700 PRINT TAB( 8); 1990 IFC) =B THEN 20 
1130 HOME 1440 GOTO 1450 Á740 PRINT NAO TEM ESSA | 30 
| 4440 PRINT “VOCE DISPOE 1420 PRINT “REI E *; GRANA TODA! 2000 PRINT “VOCE GANHOU! 
DE “;05º,00" 1430 GOTO 1450 1720 PRINT TAB( 8); ia 
1460 GOTO 1210 1440 PRINT “AS E 4; +730 PRINT “SEU CACIFE, 2010 SPEED= 255 
JD G=0+M NO MOMENTO, ” 2020 GOTO 1470 
1180 GOTO fico 4450 IF BC dt THENÍSOO 4740 PRINT TAB(B); | 
90 G=0-H | 4750 PRINT “ESTA REDUZID | 2030 PRINT “LAMENTO MAIS 
1200 GOTO 4100 4460 JF B= 4 THENASO OA CR$;0;”, o VOCE PERDEU” 
1240 PRINT AS 2 CARTAS 0” 
- LANCADAS SAO? 4470 IF B = 42 THENÍSMO 4760 GOTO 1600 2040 SPEED= 255 
' | CO AJOC= INT (144 RND Em IF M€ Q THEN 1190 
200 à = tao IF B=43 THENAS6O | (1) +2 PRINT 
ques CO ATRD SPEED= 100 2070. PRINT 
[90 TF ACO THEN 1200 1490 IF B = 44 THEN 1580 1790 IF O (2 THEN 1770 2080 PRINT “QUE PENA! VO 
EAD TF A 44 THEN 10 || f800 IFC) 44 THEN 4770 | | CE ESTA QUEBR 
4500 PRINT B ADO” 
250 B = INT | 4540 GOTO 1400 1840 PRINT “A TERCEIRA C | 2090 PRINT 
pe a 3 ME tt MD áson PRINT “VALETES ARTA Es”; 2100 PRINT 
4) IF BO THEN ISSO 520 GOTO 1600 | 4820 IF C( di THEN 1870 Sidi) PRE AEE ds 
o RE UE Ti 1540 PRINT “DAMA” 2120 PRINT “QUE TAL TENT 
1550 GOTO 1600 1830 IF C=4í THENÍO9O AR DE NOVO” 
sã E 45 1560 PRINT “REI 2430 PRINT TAB( 8); 
E 0 A? SE MERIS | asa goto 1400 1840 IF C= 42 THEN AMO 240 PRINT”? 
j 1580 PRINT “AS” 2450 PRINT 
1090 IFE-A(Z BOTO 1 1590 PRINT 1850 IF C= 43 THEN 4930 21460 PRINT 
22 4600 PRINT | 2470 GOTO 4070 
4300 IF A (44 THEN 4250 4440 INPUT “FACA SUA APO 4860 IF C=44 THEN4950 | 2480 HOME 
STA A SEGUIR: | 2490 PRINT “TUDO BEM, FI 
1340 IF A = 4 THEN 1380 "sh | 4870 PRINT C CA PRA PROXIM 
1620 IF M)O THEN S470 | | 1880 GOTO 4970 A 
1320 IF A = 12 THEN 1400 1630 IF M( O THEN DIO | 4890 PRINT “VALETE” 2200 END E 
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Observando os Céus Il 


Este programa, desenvolvido por Antonio Carlos Gabrielli, é uma 
complementação do “Observando os Céus”, publicado em uma 
das edições da Microhobby, no primeiro semestre do ano passado. 


O programa que elaborei tem por 
finalidade a transformação da hora si- 
deral em hora solar (terrestre). Esta- 
mos em época de cometa, graças a 
qual muitos astrônomos amadores 
vêm despontando e, acredito, muitos 
permanecerão no “hobby”, vascu- 
lhando os céus e, quem sabe, trazen- 
do alguma contribuição num campo 
onde o amadorismo desempenha um 
papel importante. Criei este programa 
no primeiro semestre deste ano, pro- 
curando completar o programa “Ob- 
servando os Céus”, publicado na edi- 
ção nº 15 da Microhobby, e o estou uti- 
lizando, até o momento, sem nenhum 
problema em meu equipamento (TK- 
2000). 

Este programa publicado na seção 


Listagem 1 


Didática desta revista, de autoria de 
Antonio Fernando B. de Almeida Pra- 
do, além de bastante interessante é útil 
para os astrônomos amadores ou pro- 
fissionais, pois facilita a localização dos 
planetas na abóbada celeste. Assim, 
na data indicada pelo usuário (a partir 
de 1/1/80), aquele programa fornece- 
rá duas importantes informações para 
a localização do astro desejado: a de- 
clinação e a ascensão da reta. Estes 
dados, para estrelas e constelações, 
são relativamente “fixos” e podem ser 
encontrados em livros de astronomia, 
não havendo necessidade de cálculos. 
Em qualquer dos casos, entretanto, a 
ascensão reta é fornecida em horário 
sideral, havendo necessidade de trans- 
formá-la em horário solar, o que pode 


HORA SOLAR” 
3445 PRINT 
3470 Di = 22:H4 = 3 

3180 INPUT “ENTRE COK O 
DIA: “;D2 
3490 PRINT 


3290 
DD + 

3300 
DD + 

3310 


: INPUT “ENTR DD + 


3020 Mi =Mi+i 


3230 DD = Do + 9: 3350 
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IF DM = 3 THEN TD = 
92: GOTO 335 

IF DM = 4 THEN TD 
122: BOTO 3380 
IF DM = 5 THEN TD 


153: 


IF DX = 9 THEN TD 


H * 3600) - « 
NH * 60) 


E COM À ASCEN 


GOTO 3380 


Es 
de E 3320 IF DM= 4 THENTD 3400 PRINT: INPUT “ENTR 
: DD + 184: GOTO 3380 E COM À ASCEN 
3200 IF Mo 2 
ma É Erê PARAR 3330 IF DM =7 THEN TD = SAO RETA (MINUTOS): “;HI 
920 IF D2=) Di GOTO DD + 214: GOTO 3380 3410 PRINT: INPUT “ENTR 
e 3240 IF DH=B THEM TD= | | E COM A ASCEN 
DD + 245: GOTO 3380 SAD RETA (SEGUNDOS): “55 


=AR +24 


30 DD + 275: GOTO 3320 950 GOTO 3165 
3240 DD = D2 - Di 3360 IF DM = àD THEN TD 3430 HT = AR - NH + ie 3180 D2 = 

cs0 DM = Mo - Mi = DD + 306: GOTO 3350 3440 IF HT = > 24 THEN 3190 M2 = C 
3260 IF DM=O THENTD= 3570 IF DM = 4í THEN TD HT = HT - 24 3390 AR = dh 
DD: GOTO 338 =DD+33%7 3450 JF MIC NM THEN MI 3400 MI = K5 

0 3380 NH = INT ((TD * 236 =MI+60:HT=HT7-1 3410 5 = ÀS 


3982 NS = (TD 4 25 


390 PRINT : INPUT “ENTR 


SÃO RETA (HORA): “AR 


3420 IF AR € NH THEN AR 


Antonio Carlos Gabrielli 


ser feito com o auxílio de tabelas apro- 
priadas ou com um computador, desde 
que se disponha de um programa ade- 
quado. 

Na listagem 1 é apresentado um pro- 
grama completo para transformar a ho- 
ra sideral em hora terrestre (solar). Pa- 
ra facilitar a anexação ao programa 
“Observando os Céus”, foi adotada a 
numeração apresentada na listagem 1. 

Para a junção dos dois programas, 
proceda de acordo com as instruções 
abaixo: 


1 — carregue, no computador, o pro- 
grama “Observando os Céus”. 


2 — em seguida, digite a listagem 1, já 
com as modificações apresentadas na 
listagem 2. 


3 HOME 32070 IF DM = THENTD = P4 3600) 3460 M=MI NM 
4 CLEAR DD + 31: GOTO 3380 3381 NH = INT (TD 4 236 3470" IF S 6 N5 THEN S = 
3 PRINT “CONVERSÃO DE HO 3280 IF DM = THEN TD = / 60) - (NH & 5+60M=M-1 
RA SIDERAL EM DD + giz GOTO 3580 60) 3480 TS = 5 - N5 


3490 PRINT “HORA SOLAR: 

“HT; HORACS 

3 E “;M;” MINUTOCS) E “47 
5=" SEGU 

NDO(S)” 

3500 INPUT “DESEJA FAZER 
NOVA CONVERS 

AO? (S/N) “;AS 

3600 IF AS = “5” GOTO 3 
3610 END 


é - AN 


Listagem 2 


Cálculos Financeiros 


Baseando-se no programa “Investimento Pessoal”, publicado na edição número 
24 da Microhobby, na seção Por Dentro do Apple, nosso leitor Giovanni 
Esposito desenvolveu este aplicativo de cálculo financeiro para o TK-2000. 


“Cálculo Financeiro” tem como ob- 
jetivo calcular variáveis financeiras, 
partindo de valores já conhecidos. 

As variáveis usadas são as seguin- 
tes: 

VP — Valor presente 

VF — Valor futuro 

J — Taxa de juros 

N — Número de períodos 

M — Montante de juros 

PM — Pagamento periódico 

O programa é dividido em quatro 
itens, sendo o último a opção de saída 
do programa. Os três primeiros itens se 
dividem em outros, secundários, (que 
são chamados de menus intermediá- 
rios). 

O primeiro item, “importância com- 
posta”, é subdividido em cinco op- 
ções. A primeira é chamada de “valor 
presente”. Para se efetuar o seu cál- 
culo, utilize a seguinte fórmula: 

UP = UF*(1 + JJ (—N) 

A segunda opção é o “valor futu- 
ro”, para obter o valor correspondente 
usa-se a seguinte fórmula: 

UF = UP*( + JJ N 


A terceira opção — “números por 
período” — é conseguida através da 
fórmula: 


N = LOG (VF/VP) / LOG (1 + J). 

A quarta opção determina a “'taxa de 
juros” com o auxílio da fórmula: 

J = (VF/VP) (Y/N) — 1 

A quinta e última opção deste pri- 
meiro item calcula, enfim, o “montan- 
te de juros” por intermédio da fórmula: 
M=VP*H((1+ JC N—1) 

O próximo item do programa, deno- 
minado de “Poupança Periódica”, é 
subdividido em três opções. A primei- 
ra calcula o “valor futuro” através do 
uso da fórmula: 

VF = PM/J*((01 + JD) (N+471)— 
(1+J)) 

A segunda opção irá determinar o 
“Pagamento periódico”, bastando pa- 
ra isto utilizar a fórmula: 

PM =(VE*D/(01+4)DAN+T)— 
(1+J)) 

A terceira opção deste segundo item 
estabelecerá o “número de períodos”. 
Para tanto, siga as dicas da fórmula: 
N = LOG (VF * J/PM + (1 + J))/ 


LOG(1+J)—1 
A penúltima divisão do programa (o 


terceiro item), “empréstimo hipotéti- 
co”, oferece ao usuário seis opções. A 
primeira calcula o “valor presente”, 
definido pela variável VP, ou valor 
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atual e pode ser obtido através da fór- 
mula: 
VP=PM*((1—-(1+ JT (—N)D/J) 

“Pagamento periódico” é a segunda 
opção deste item. Ele pode ser calcu- 
lado com a fórmula: 

PM =VP*(J/(1-(1+9)"(— N))) 

A terceira opção é denominada “nú- 
meros de períodos” e sua fórmula é a 
seguinte: 

N = — LOG (1 — J*VP/PM)/ LOG 
(1 + J) 

A quarta opção irá determinar a “Ta- 
xa de Juros” e a quinta, os “juros acu- 
mulados”. As suas fórmulas são, res- 
pectivamente: 
J=PM/VP-VP/(N 2*PM) 
M=SL-—-SK+(L—K + 71)*PM; 
N=L-K+41 

A sexta e última opção deste item 
fornece a “tabela de amortização”, cal- 
culada através da seguinte fórmula: 
SD=1/(1+J) (—-N)*(PM/J* 
(+ JN) — 1) + VP) 

Quando for rodar o programa o seu 
TK-2000 exibirá na tela o menu princi- 
pal, composto de quatro itens, os quais 
você terá que optar por um deles. 

Sucesso em suas transações comer- 
ciais! 


IFXCLORXIA4TH 
BOTO 95 
08 % GOTO 200,400,90 
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200 REM xxxIMPORTÂNCIA C 
OMPOSTAx es 
210 HOME 
dio PRINT TAB( 6)“ 


220 INVERSE : 
AB B: PRINT” 

IMPORTÂNCIA COMPOSTA “ 
: NORMAL 


VTAB 2: HT 


230 VTAB à: HTAB 4 

240 PRINT” PARA CALCULA 
RE” 

290 PRINT 

260 PRINT TAB( 9):"1-VA 
LOR PRESENTE” 


270 PRINT TAB( 9);/2-VA 
LOR FUTURO! 
280 PRINT TAB( 9);“3-NU 
HERO DE PERTO 
DOS” 
290 PRINT TAB( 9);“4-TA 
XA DE JUROS” 
300 PRINT TAB( 9);“5-H0 
NTANTE DE JUR 
05” 
305 PRINT TAB( 47);“ACU 
HULADOS” 
340 PRINT: PRINT: 
T 
320 PRINT TAB( 4);“ESCO 
LHA? 1,2,3,4 
OU 5“; 
330 GOSUB 5000 
340 INPUT X 
350 IFXCLORX)STH 
EN 320 
360 ON X GOSUB 500,540,5 
20,530,540 
370 GOSUB 2000 
375 VTAB 23: HTAB é 
380 INPUT “DESEJA FAZER 
OUTRO CALCULO 

(S/N)2 RS 
390 IF R$ = “5” THEN 240 


PRIN 


400 GOTO 10 
900 VP = DVP = fiJ= in 
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= 4: GOSUE à | 
nao | 
SOS VP=VPA ADC. 
- N): RETURN | 


S40 VF = GIUP = 4:J=4:N 

= 4: GOSUB é 

200 

MSVE=UW XL +NDAN 

: RETURN | 
S20 N= QU = divp= dis 
= 4: GOSUB 4 
000 

525 N= LOG (VE / VP) / 
LOG (4 + J): 

RETURN 
530 J= OF = fivP= in 
= 4: GOSUB É 

000 
1535 J= (VF/ VP) 
N) - 4: RETURN 
[540 VF = O:VP = f:J = t:N 
=42 GOSUB 1 

000 

SMS M=UAL+ADAN 
- 4)3 RETURN 


ti/ 


400 REM x*sPOUANCA PERI 
ODICAe* 

610 HOME | 
615 PRINT TAB( B)u--—— 


620 INVERSE : 
AB 6: PRINT” 

POUPANCA PERIÓDICA 
: NORMAL 


VTAB 2: HT 


625 PRINT TAB( Bt 


630 VTAB 6: HTAB 4 

640 PRINT ” PARÁ CALCULA 
Ri” | 
650 PRINT | 
660 PRINT TABC 9);"í-VA 
LOR FUTURO” | 
470 PRINT TABC 9);“2-PÃ 
GAMENTO PERTO 

DICO” 

680 PRINT TABC 9):“3-NÚ 
MERO DE PERTO 

DOS” 


Sed 


PRINT E PRINT: PRIN 
PRINT TÁBI 4):“ESCO 


LHA: 4,2 0U3 


BOSUB 5000 
INPUT X 
IFXCLO0RX53T 
740 
20, 
750. GOSUB 2000 
755 VTAB 23: HTAB 4 
760 INPUT “DESEJA FAZER 
OUTRO CALCULO 

(S/N) 2 C5R$ 
770 IF R$ = “5” THEN 440 


ON X GOSUB B0D,E10,8 


780 GOTO 10 
B00 VP = O:YF = OipH= 4: 
J=4N=i:GOSUBiODO 
BOSVF=PH/ Ja ((1+J 
VN +1)- 

(4 + J)): RETURN 

BIO VP = O:PM = OF = 
J=4N=4: GOSUB 4000 


BISPM=(VPEJ/ (is 
DN +t) 

| - (4 + J)): RETURN 
P=ON=GUF=isp 
J = 1: GOSUB 1000 

= LOG ui *J/ PM 
+ JD 

LOG (1 + J) - 4: RETURN 


o 
=4: 
3 N 

tú 


900 REM *+*xEMPRESTIMO HI 
 POTECARI0x%% 

905 HOME 

907 PRINT TAB( B):7--— 


90 INVERSE : 
AB 8: PRINT “ 
| EMPRESTIMO HIPOTECARIO “ 
: NORMAL 


VTAB 2: HT 


915 PRINT TÁB( 8);--— 


920 VTAB 6: HTAB 4 

925 PRINT” PARÁ CALCULA 
R au 

926 PRINT 


| RE 


990 PRINT TAB 
LOR PRESENTES 


9)" i-VA 


995 PRINT TAB( 
GAMENTO PERIO 
DICO” 

940 PRINT TAB( 
MERO DE PERIO 
DOS” 

945 PRINT TAB( 9) 
XA DE JUROS” 
950 PRINT TAB( 
ROS ACUMULADO 

S “ 

955 PRINT TAB( 
“ALDO DEVEDOR” 


9);“2-PA 


9):"3-NU 


ATA 


9)4"5-JU 


15);"E 5 


960 PRINT TABC 9);“6-TA 
BELA DE AMORT 
 TZACÃO” 

963 PRINT: 
T 
965 PRINT TAB( 
Lhá: 1,2,3,4 


ENE E 


50064 
970 GOSUB 5000 

975 INPUT X 

980 IFXXiOkK>6TH 
EN 965 

985 ON X GOSUB 3000,3020 
30403060, 32 

00,3250 

990 GOSUB 2000 

995 VTAB 23: HTAB 1 

995 INPUT "DESEJA FAZE O 
UTRO CALCULO( 

S/N)" RS 

996 IF R$ = “5” THEN 905 


PRINT : PRIN 


4); "ESCO 


997 GOTO 40 
4000 REM +**INTRODUCAO 
DE DADOSx4% 


40041 HOME 

1002 PRINT” INTRODUCAO 
DE DADOS ” 

1004 PRINT: PRINT 


1005 IF VP = THEN 1045 
NTE = “sUP 
4045 IF VF = 0 THEN 4025 


1020 INPUT ” VALOR FUTUR 


gs, 


Lo 


1010 INPUT “ VALOR PRESE | 


— 
| 
| 
l 


cri 


1030 INPUT “ PAGAMENTO E 
ERIQDICO= “=P 

K 

1035 IF N=oOTHENiDAS 
1040 INPUT “ NUMERO DE P 
ERIODOS= ”, 

1045 IF J=0 THEN 4OSS 
1050 INPUT ” TAXA DE JUR 
OS(VAL. DECIM 

AL)= “4d 

1055 IF K=O THENÍDOS 
1060 INPUT ” MES INICIAL 
— “ak 

i065 IF L=OTHENiDS 
1070 INPUT ” MES FINAL = 
tL 

1075 RETURN 

e000 REM xxx APRESENTAC 

AO DE RESELTA 

DO xxx 

2001 HOME : VTAB 2: HTAB 
ó 

o002 INVERSE : PRINT“ 

RESUL 

TADO “7 NORMAL 
2003 PRINT: PRINT: PRI 
NT 

e004 IF VP =OTHENZ2007 
e00o PRINT TAB( 4):"VAL 
OR PRESENTE= 

"up 

2007 IF UF =O THENZ015 


2010 PRINT TAB( 4); VAL 
OR FUTURO = 

PA 

| 2015 IF PH = O THEN 2025 


2020 PRINT TAB( 4);“PAG 
« PERIÓDICO 

"PM 

2025 IF N=0 THEN 2035 

2030 PRINT TAB( 4);/NUM 
« DE PERIODOS 

- “an 

2035 IF J=0 THEN 2045 

2037 JP = INT (4 * 10000 
14 400 

2040 PRINT TAB( 4);/TAX 
A DE JUROS =” 


a 
2043 NTAB 9: HTAB 29: PR 
INT” OU “JP 
: “ao dl 
2045 IF M= O THEN 2055 
2050 PRINT TAB( 4);“JUR 
05 ACUMULADOS 
= "4h 
2055 IF 1=0 THEN 2065 
2057 PRINT : PRINT 
2040 PRINT TAB( 4);/NUM 
ERO DE ITERAC 
0E5= “41 
2045 IF SD = O THEN 2080 
2070 PRINT TAB( 4);"SAL 
DO DEVEDOR” 
2072 PRINT TAB( 6);!NO 
FINAL DO MES 
Mala sn 
2080 GOSU8 5000 
2090 RETURN 
3000 VP = DipH = f:J= 1: 
N= 4: GOSUB 
1000 
3010 WP = PHX (1 -(4+ 
DC) 
/ JJ: RETURN 
3020 PH = DiyP=fig=4: 
N= 4: GOSUB 
4000 
3030 PH = UP (J/(4- 
LADA 
N))): RETURN 
3040 N = O3UP = diph= 4: 
J= 4: GOSUB 
4000 
3050 N= - LOG (1 -J+ 
VP / PH / LOG (4 +) 
RETURN | 
3040 REM CALCULO DA TAX 
A DE JUROS 
3045 REM 
ENTON 
3048 VP = fiPH= diN= 4: 
VF=0:)=0: 
M=0K= OL =0SD=0: 
GOSUB 1 


P/METODO DE N 


n00 

3069 REM FUNCAO PRIMITI 
Vaxex 

3070 DEF FNFC)=tí- 


fi = NI CA 
PJ RM 


3075 REM FINCAO DERIVA 
DA xx 

3080 DEF FN At) = (CN 
AGIR 


Rd EA dd) = N) 
RUN. 

Re 
3085 REM *xVALOR INICIÁ 
L DE (J)x 
3090 J=PM/VP-WP/( 
Nºc2a PM 
3095 FORI=1 Toi 
3400 J=)- ENFIJ) / 
EN ACI) 
340 IF ABS CENF()) 
+ 1. 00D0E - O 
o THEN 3125 
3120 NEXT I 
3125 RETURN 
3200 REM xxJUROS ACUMULA 
DOSx* 
3240 VF = 03] = jiPM= 1: 


K= fil = 4: GOSUB 1000 


32tã SK = 0:SL = 0 

3220 N=K - 1: GOSUB 340 

D:5K = 5D 

3230 N = L: GOSUB 3400:SL 
=5D 


3240 M= SL -SK+(L-K 
+ 1) x PMEN=L-K+ ds 
RETURN 
3290 REM *xTABELA DE AMO 
RTIZACAOE* 
3270 UP = dzPM= fid=d: 
VE = DN = O: 
K=0:L=0 
ge73 GOSUB 1000 
So8s UTAB ic: HTAB 1: PR 
INT “DIGITE 0 

MES INICIAL E FINAL DE C 
ADA” 

3286 PRINT “PERIODO, SEP 
ARADOS POR VI 

RGULA.” 

086 INVERSE : VTAB ló: 
PRINT TAB( 7 

)="DIGITE 0,0 PÁRA TERMIN 
AR“: TAB( 41):: NORMAL 
3290 T=1 


3295 INPUT” MES INICIAL 
,MES FINAL *; 
MIC) ,MF(T) 


3300 IF MICT) = O AND HF 
(T) = O THEN 

3330 

MO T=T+1 

3320 GOTO 3295 

3330 T=T-1 

3335 FORX=4TOT 

3340 N = MICO - 1: GOSUB 
3400:SI() = 

SD 

3345 Nº= NF(X): GOSUB 340 
D:SF(X) = SD 

3347 JACK) = SF(X) - SIX 
3 + (MEO) - 

MICO + 4) * PM 

3348 NEXT X 

3349 HOME 

3350 INVERSE : VTAB 2: H 
TAB 8: PRINT 

"TABELA DE AMORTIZACAO!: 
NORMAL 

3351 PRINT 

3352 PRINT “VALOR PRESEN 
TE= “;UP 

3354 PRINT “PAGAMENTO PE 
RIODICO= ";PH 


3356 PRINT “TAXA DE JURO 
S= “4 

3358 PRINT 
3340 PRINT “PERIODO-JURO 
S ACUMULADOS- 
SALDO DEVEDOR” 

335 FORP=4TOT 

3370 PRINT TAB( 2);MICP 
)3!=";MF(P); TAB( 41); JA(P 
»; TAB( 28);SF(P) 

3375 NEXT P 

3390 GOTO 993 

3400 SD=1/1+49*( 
-N) + (PM/ 

JE GA DC n-s 
» + up): 

RETURN 

ADOO REM *xkxFIMeKes 
ADOS END 
S000 COLOR 
55 AT 25 HLIN 
32,99 AT 2: VLIN 2,39 AT 
39: HLIN 

0,39 AT 39: VLIN 2,39 AT 
0 

5004 RETURN E 


= 40: HLIN O 
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Cálculo Estrutural para Vigas Contínuas 


O artigo que se segue apresenta um 
programa de cálculo estrutural para vi- 
gas contínuas. Gostaríamos de frisar, 
antes de mais nada, que trata-se de um 
programa simples, para ser tomado co- 
mo ponto de partida para o leitor de- 
senvolver dentro de suas necessida- 
des o seu próprio programa. O nosso 
resolve, por assim dizer, a parte hiper- 
estática. Fica por sua conta, caro lei- 
tor, a parte isostática, ou seja “pendu- 
rar os diagramas”. 

É evidente que um programa com- 
pleto, sobre vigas contínuas, além de 
extenso, para uma publicação em re- 
vista foge aos objetivos do artigo. Já 
existem no mercado bons programas 
para vigas, a preços acessíveis. Como 
porém cada calculista tem seus pró- 
prios sistemas de trabalho, esses pro- 
gramas prontos às vezes são muito 
completos, justificando que o enge- 
nheiro estrutural tenha seu próprio pro- 
grama, mais específico, para atender 
às suas rotinas do dia-a-dia. 

Outra consideração inicial diz respei- 
to ao processo de cálculo adotado. 
Realmente a maneira mais eficiente pa- 
ra resolver estruturas, utilizando o pro- 
cessamento eletrônico, envolve a Aná- 
lise Matricial. Tanto o Método das For- 
cas (ou da Flexibilidade) como o das 
Deformações (ou da Rigidez), tratados 
matricialmente, são bem mais adequa- 
dos. 

A análise matricial das estruturas foi 
difundida na engenharia estrutural bra- 
sileira, nos últimos anos da década de 


60. Isso deixa uma grande parte de 
nossos projetistas “meio” | inibida, 
quando o assunto envolve matrizes. 

Por volta de 1969, pôde-se afirmar 
que estava terminando uma geração 
formada nos artifícios de cálculo, nas 
simplificações por simetria, nos arran- 
jos de carga. Enfim, engenheiros estru- 
turais que conheciam a fundo a hi- 
perestática e sabiam “driblá-la” com 
perfeição, para, na falta de melhor fer- 
ramental, evitar um número muito 
grande de equações. 

Com a utilização, inicialmente, de 
computadores de grande porte e pos- 
teriormente, com o advento dos mi- 
cros, esses problemas perderam sua 
importância, e essa geração, em geral, 
se sentiu tolhida, ao invés de utilizar 
seus “macetes”, adequando-os às má- 
quinas o que, sem dúvida, poderia ter 
gerado um produto “híbrido”, da me- 
lhor qualidade. 

Por outro lado, o cálculo matricial, 
puro e simples, não é suficiente para 
resolver estruturas em microcomputa- 
dores. Isso porque, apesar das matri- 
zes de rigidez dos membros terem di- 
mensões reduzidas, o seu armazena- 
mento sem maiores cuidados esgota a 
capacidade de memória de qualquer 
micro. A matriz completa de uma es- 
trutura, mesmo com poucos membros, 
é muito grande para ser invertida (ou 
resolvido o sistema de equações), sem 
um adequado tratamento matemático, 
ou seja, bandas, simetrias, etc. .. 

Assim, os programas para cálculo 
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estrutural, matriciais exigem conheci- 
mentos profundos, além dos intrinse- 
cos das estruturas, de matemática (cál- 
culo matricial) e da memória do micro, 
para armazenar as variáveis de manei- 
ra racional. 

Aqui foi adotado o Método das For- 
ças, ou da Flexibilidade. Conseguimos, 
com isso, um programa mais ágil, on- 
de o engenheiro estrutural poderá se 
achar com mais facilidade, para “me- 
xer” no programa, que está todo em 
Basic, operando sempre na CPU, sem 
necessitar de arquivos em drives ou 
fitas. 

Deste modo, fica mais fácil para a 
“nossa turma”, na faixa dos 40, entrar 
no mérito da hiperestática, sem trau- 
mas. 

Assim, o programa que apresenta- 
mos aqui, para vigas contínuas, se pro- 
põe a ser um “esqueleto”. O leitor po- 
derá, e deverá, incrementá-lo, para 
atender às suas necessidades, ao seu 
sistema de trabalho. Poderão ser 
acrescentados balanços, engastes nos 
apoios extremos, cargas triangulares, 
com facilidade. 


Cálculo Estrutural 


Como já foi comentado acima, ado- 
tamos o Método das Forcas. O progra- 
ma está todo em Basic, sendo simples 
criar novas rotinas, para incrementá-lo. 

As premissas iniciais são as seguin- 
tes: 

— 9vãos 


er e e 


L (2) 


Figura 1 
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(2) 


L(3) E | 


x2:1 


Figura2 | 


— até 10 cargas distribuídas por vão 

— até 10 cargas concentradas por vão 

— Saídas: Momentos e cortantes so- 
bre os apoios e reações. 

O limite de cargas por vão foi adota- 
do simplesmente, por razões práticas, 
para dispensar os “Dimensions” para 
as variáveis. 

O processo adotado para inversão 
de matriz é simples e pode ser substi- 
tuído por outro, mais eficiente, se o lei- 
tor já possuir uma sub-rotina para isso. 
Aqui foi dispensada até mesmo a sim- 
plificação devida à simetria da matriz. 

O sistema geral seria o representado 
na figura 1. 

Pelo Método das Forças rompem-se 
os vínculos até tornar o sistema isostá- 
tico. No caso das vigas contínuas, é 
mais simples articular todos os apoios 
internos. 

Esse sistema isostático é denomina- 
do Sistema Principal, sendo que cha- 
maremos de Hiperestáticos os momen- 
tos X1 sobre os apoios, equivalentes 
aos vínculos rompidos. 

Em resumo, pois não acreditamos 
ser necessário entrar mais a fundo na 
Teoria do Método, sabemos que as ro- 
tações sobre os apoios serão nulas, 
quanto ao sistema principal, aplicar- 
mos os carregamentos externos e cada 
um dos Hiperestáticos, com valor uni- 
tário. Assim, têm-se para a rotação so- 
bre o apoio 1, o seguinte: 


D1,0 + D1,2*X1 + D,3*X3 +... 
+ D1,1*X1 =0 


Serão, deste modo, obtidas equa- 
ções similares uma para cada apoio, 
onde rompemos vínculos, tendo-se 
com isso, um sistema de equações que 


resolve o problema, fornecendo os va- 
lores dos Momentos sobre os apoios. 

As grandezas D serão sempre rota- 
ções em sistemas isostáticos, fáceis de 
serem obtidas, pela integração dos dia- 
gramas de momentos. Como o siste- 
ma principal é isostático, as rotações 
sobre cada apoio só dependem dos 
diagramas dos vãos adjacentes ao 
apoio em questão. 

As rotações provenientes da ação 
dos hiperestáticos são mais simples, 
uma vez que os diagramas são sempre 


triângulos, como se vê na figura 2. | 


A rotação no apoio 1 para X1 
será: 


D 14 = 11/83" 11º LD + 01/31 
*1*L(2)) 


A rotação no apoio 1, para X2 = 1 
será: 


D 1,2 = (1/6*1*1*L(2)) 


As rotações no sistema principal, de- 
vido aos carregamentos externos, po- 
dem ser obtidos também com facilida- 
de, com um simples recurso, ou seja 
superpondo os efeitos, uma vez que a 
rotação para todas as cargas externas 
será a soma das rotações devidas a ca- 
da carga, distribuída ou concentrada. 
Para o micro, é uma simples operação 
FOR-NEXT, e assim obtemos, por 
exemplo, conforme figura 3 e 4. 


| L 
| pesa 


Figura 5 
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(1,9) 
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ET A, 


F 


i 
| 


LV(I) 
- 4 Figura3 
QD(I,J) 
on EE 
ETA ENE 40) 1 
VULOmBEO 
| Í [ | 
| 
Figura 4 o 


A combinação dos diagramas aci- 
ma, com os diagramas triangulares dos 
hiperestáticos, será efetuada por par- 
tes, para cada um dos trechos, ou se- 


L 
k 
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Figura 7 

ja, triângulo com triângulo, triângulo 

com trapézio, trapézio com parábola. 
As integrações de triângulo com 

triângulo, que já vimos acima, e as in- 

tegrações de triângulo com trapézio 

seriam conforme figuras 5 e 6. 


D = 1/6*j*(2k1 +k2)*L 
D=1/6*j*(k1 + 2k2)*L 


Para as cargas distribuídas, além da 
integração parcial de triângulos e tra- 
pézios, teremos o trecho parabólico, 
que se integrará com um trapézio, con- 
forme figura 7. 


100 
110 
120 
130 
140 


DIM RB(20) 

INPUT "NUMERO DE VÃOS :º;NV 

FOR 1 =1 TON 

PRINT “VAO NUM, “1 

PRINT LC"I;: INPUT *)="5LV( 

1 

NEXT I 

FOR 1 =0 TO NV + 1:DO(I) = 

O: NEXT 

REM ENTRADA DE CARGAS 

FOR 1 =1 TON 

PRINT "VAD NUM. *;1 

INPUT "QUANTAS CARGAS CONCEN 

TRADAS?"s CCT) 

IF CCI) = O THEN GOTO 260 

FOR J = 4 TO COLD) 

INPUT “P=";P(1,9) 

INPUT "="; 11,0) 

NEXT] 

INPUT "QUANTAS CARGAS LINEAR 
DISTRIB.2";CD(L) 


150 
160 


170 
180 
190 
200 


210 
220 
230 
240 
230 


o 


D = 1/6* (11 *k1 + 2;2 (k1 + k2) + 
j3*k2) *L 


Esse procedimento, para o micro, é 
simples, pura aritmética . .. 

A matriz de flexibilidade, formada 
pelos termos Di, j é simétrica, bastan- 
do portanto calcular os termos supe- 
riores e a diagonal principal. 

Os momentos sobre os apoios serão 
os próprios hiperestáticos Xi, e para os 
cortantes e reação de apoio teremos, 
da equação geral, que um esforço 
qualquer (E) será sempre o valor do es- 
forço isostático (Eo), somado às par- 
celas dos hiperestáticos (Ei . Xi). 


280 FOR J=1 TO CDI) 

290 INPUT "BD=";8D(1,9) 

300 INPUT "YI=";YL(I,9) 

310 INPUT "COMPR.=";BE 

320 Y2(L,0) = VI(I,D) + BE 

330 NEXT 

30 NEXTI 

350 REM CALCULO DOS DELTA 1,1 

360 GOSUB 970 

370 REM CALCULO DOS DELTA 1,0 

380 REM CARGAS CONCENTRADAS 

390 FORV=1 TON 

400 FORT =1 TOCO) 

40 À = HW, 1):B = LV(V) - A 

420 IF V=4 THEN DOI - 1) = 0: 
BOTO 440 

430 DO( = 1) = DOLV = 1) + PIV,I 
VJEA4B*3/3/ LV 
2+PW,D/640424B/ 
LUIV) É (24 B/ LUI) + 1) 
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| 


Co 
| 270 IF CDI) = 0 THEN GOTO 340 | 


| 
| 
| 


E = Fo + Ei*Xi 


PROGRAMA 


100 a 340 — Entrada de dados 

350 a 700 — Cálculo dos termos da ma- 
triz de flexibilidade e vetor 
de carga 

710a 840 — Cálculo dos Hiperestáti- 
cos, cortantes e reações 

850 a 960 — Saídas 

sub-rotina 9/0 — Montagem da matriz 

de flexibilidade 
sub-rotina 1130 — Inversão da matriz 
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— NOTAS DE AULAS — Prof. Domi- 
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E.C.R. Sociedade Civil de Engenharia e 
Consultoria, localizada no Rio de Ja- 
neiro, especializada no desenvolvi- 
mento de sistemas específicos para a 
área de engenharia. 


po 


AO TF V = NY THEN DO(V) = O; BOTO 
460 | 

450 DO) = DOI) + PIV,I) E AA 
3FAB/S/ LN ADA PI, 
D/brAsBSZ/ LV) E 
(24 AVL) +) 

| 450 RALO = RAW é PI, é 8) | 
LVCVISRBIV) = RBCV) + PIV,D) 


ER 4 LUI) 
470 PL = PIV,I):XL = MIM, DEL = 
O) 
LAN | 


490 REM CARGAS DISTRIBUIDAS 
500 FOR I=1 TO CD) 
510 04 = BD(V,1) 
520 BE = V2(V DD = YVINV,D) 
530 OT = BE & QDIV,L) ] 
540 AA = VICV, ICE = LVIV) - Y2l 
Vs) 
550 RA = QT 4 (24 CE+BE /2/ 


O = 


dade do 
| 


Rana 


Cara 
AMIENBE 


EE 


ES RD 
LV(V) 


60 RB= 074 (ZEA+ BE /2/ 
LVtV) 
570 HC = RA 4 AA:MB = RB 4 CE 
S80 MD = RAS (BE/2+Ah - 074 
BE / 8 
590 JF W=1 THENDO( = 1) =0: 
BOTO 440 
800 DA = CE *2/3/ LV(V) E MB 
b1O DS =NC/ 6204 (24 (CE + 
BE) / LU(V) + 1) 
620 Dê = (MC + (CE + BE) +24 MD 
+ ICE 42 + BE) + MBA CE) 4 
b | LU(V) 4 BE 
630 DOIV = 1) = DO(V = 1) + DA + 
D5 + Di 
MO DI = AB 2/3) LV(V) EMC 
650 D2 = CE / 64 MB & (IA + BE) 
E 2/ LV) + 1) 
660 D3 = (AM ANCA2 END (Ad 
2 + BE) + MB & (AA + BEJ) 4 
6 1 LUIV) 4 BE 
670 IF V = NV THEN LET DO(V) = 
0: BOTO 690 
SB DO(V) = DO) + DI + D2 + D3 
690 RAIV) = RAIV) + RASRB(V) = RB 
(V) + RB 
700 NEXT V 
710 REM CALCULO DOS BETAS 
720 FORJ=4 TONV- IBETA(I) = 
0 
730 FORI=1TON-1 
740 BETA(J) = BETA(J) + DOC) 4 D 
HID) 
750 NEXTI 
760 BETA) = 
70 NEXTI 
780 FORJ=1 TON 
790 DB(J) = (BETA(J) = BETALI - 1 
RARE) 
800 RA(J) = RA(J) + DB(J):RBII) = 
RB(J) - DB(J) 
BIO NEXTI 
820 FORJ=1TONV+1 
830 RTJ) = RALI) + REIS = 1) 
BO NEXT 
850 HOME 
860 PRINT "MOMENTOS NOS APOIOS: * 


- BETA(J) 


870 FORH=OTDNV 
880 PRINT *X(ºHº)="BETA(H) 
B90 NEXT H 


900 PRINT : PRINT "CORTANTES E R 
EACOES NOS APOIOS: * 


| Po FDRH=1TONV+1 


920 PRINT PRECH - 1º)="RBtH - 
),"BDTH - 1º)="RACH) 

9350 PRINT PR(H - 1º)="RT(H) 

940 PRINT 

950 NEXTH 

940 STOP 

970 REM SUBROTINA PARA DELTA 1, 
I 

980 FORI=1TONV-1 

990 FORJ=i TON -1 

1000 IF [= TREND) = (LU 
D+Lil+ 1/3 6070 10 
do 

1010 IF J > NV-1 TREN1O7O 

1020 IF J=1+1 THEND(,d) = 
LVtJ) 7 b: GOTO 1060 

1030 IF d>1+1 THEND(I,d) = 
0 

1040 IF L<J+d THEND(I,) 
0: BOTO 1060 

1050 IF 1 =) +14 THEND(I,) 


nu 


1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 REM INVERSAO DA MATRIZ DOS 
DELTA 

REM SUBROTINA PARA INVERSA 
O DE MATRIZ 

1150 PRINT 

1160 R= NV -1 

170 FORJ=1 TOR 

1180 BIJ,0) = 1 

1190 NEXT] 

1200 REM 

1210 FORJ=1 TOR 

1220 FORI=J TOR 

1230 IF A(I,J) € 0 THEN 1270 
1240 NEXT I 

1250 PRINT “MATRIZ SINGULAR? 
1260 BOTO 1560 

1270 FORK=1 TOR 
1280 5 = A(J,K) 
1290 AMI,K) = ACI,K) 
1300 ACL,KI = 5 
1310 5 = BIJ,K) 
1320 B(9,K) = BLI,k) 
1330 BULK) = 5 
1340 NEXT K 


1140 


1350 T= 17 At9,9) 

1360 FORK=1 TOR 

1370 AIKO = TE ACI,K) 

1380 B(J,k) = T+ B(J,K) 

1390 NEXT K 

1400 FORL=1 TOR 

1410 1FL = THEN 1470 

1420 T= - AtL,d) 

1430 FORK=1 TOR 

1540 AIL,K) = ALL,K) + T 4 A(I,K) 


1450 BALÃO = BIL,KI + TE BLI,ÃO 


1460 

1470 

1480 

1490 

1300 

1510 TO 
1520 TO 
1530 LET DI(I,J) 
1540 NEXT 

1550 NEXT 

1550 RETURN 


= B(L,d) 


PROTEJA 


o seu 


FICROCONPUTADOR 


COM FILTRO DE 
LINHA 


RUÍDO ELÉTRICO 
INTERFERÊNCIA: 


contra A: 
RÁDIO FREQUÊNCIA (RF] 


4585]. AVAVA 


contr 


À 


PICOS DE VOLTAGEM 
TRANSIENTES DE TENSÃO 


POTÊNCIA: ATINGE ATÉ 1,5 KVA 


ZENTRANX 


Rua Senador Flaquer, 376/386 
Santo Amaro — CEP 04744 
Telefone 522-2411 — Sérgio 
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ARTIGOS 


Estatística Descritiva — 


Neste artigo complementaremos o 
estudo de Estatística Descritiva, inicia- 
do na edição número 20. 

Na edição anterior conceituamos 
medidas de posição (ou tendência cen- 
tral) e medidas de dispersão. Essas me- 
didas constituem-se de métodos para 
sumarização dos dados coletados e 
são a base da Estatística Descritiva. 
Complementando essa base, teremos 
a medida e os quartis, assunto que será 
abordado neste número. 


Mediana 


A mediana é representada pelo ele- 
mento que, uma vez que a amostra es- 
teja em ordem crescente, ocupa a po- 
sição central. 

Assim, por exemplo, na amostra 2, 
3, 5, 9, 10, a mediana é representada 
pelo elemento 5. Indica-se: x = 5. 

Conforme observado, o cálculo da 
mediana é imediato se o número total 
de ocorrências na amostra for ímpar, 
ocasião em que teremos um único ele- 
mento central. 

Quando a amostra tem um número 
par de ocorrências, assume-se, para a 
mediana, o valor da média aritmética 
dos dois elementos centrais da amos- 
tra. 

Assim, para a amostra 2, 3, 4, 6, 7, 
10 a mediana é: (4 + 6)/2 = 5, ou se- 
jaix =, 

Quando tivermos variáveis conti- 
nuas, não nos preocuparemos se o nú- 
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Última Parte 


Fábio Augusto Polonio 


mero total de ocorrências é par ou ím- 
par. 

Adotamos o procedimento assim ca- 
racterizado: 

calcula-se a ordem n/2. A seguir, 
pela frequência acumulada, identifica- 
se a classe que contém a mediana. 
Uma vez de posse desses valores, utili- 
zaremos a fórmula: 


x =Imd + |n/2— f)xH 
Fmd 
onde: 


Imd = limite inferior da classe Md; 
n = tamanho da amostra ou número 
de ocorrências; 
2 f = soma das frequências anteriores 
à classe Md; 
h = amplitude da classe Md; 
Fmd = frequência da classe Md. 
Exemplo: 

Para distribuição A, determine o va- 
lor da mediana. 


classe Md 


Primeiro Passo: Calcula-se n/2. Co- 
mo n = 58, temos 58/2 = 29. 
Segundo Passo: Identifica-se a clas- 


se Md pela Fac. Neste caso, a classe 
Mdéas. 

Terceiro Passo: Aplica-se à fórmula. 
No caso: 
lmd = 5b;n = BB: 2f = 
Fmd = 18; Logo: 


18 


A mediana da amostra A é igual a 
61,67. 

Os quartis, ou também os chama- 
dos “juntas”, são medidas que divi- 
dem a amostra em quatro partes 
iguais. Assim: 


0% 25% 50% 75% 100% 
E--==|--——- |--=-- |----— | 
01 02 03 
QO1 = 1'Quartil deixa 25% dos ele- 

mentos. 


QO2 = 2'Quartil coincide com a media- 
na, deixa 50% dos elementos. 

O3 = 3'Quartil deixa 75% dos ele- 
mentos. 

Os quartis são utilizados geralmente 
para dados agrupados em classes. As 
fórmulas para a determinação dos 
quartis são semelhantes à fórmula usa- 
da para o cálculo da mediana. 

Determinação de Q1: 

Primeiro passo: calcula-se n/4; 

Segundo passo: identifica-se a clas- 
se Q1 pela Fac; 

Terceiro passo: aplica-se à fórmula. 


ARTIGOS 


Determinação de 03 


Adotamos o mesmo procedimento 
anterior, com a diferença que no pri- 
meiro passo, ao invés de calcularmos 
n/4, calcularemos 3n/4 aplicando-o na 
fórmula. 

Exemplo: Dada a distribuição, deter- 
minar os quartis e a mediana. 


CE 


classe 03 


Adotando o procedimento, temos: 

n/4 = 14; n/2 = 28; 3n/4 = 42. 
Para Q1 temos: LO1 = 17,n = 56, 
2Zf = 6,h = 10,FQI = 
Para x temos: LMD = 27, n = 56, 
Zf =21,h = 10, FMD = 20. 
Para O3 temos: LO3 = 37,n = 56, 
>Xf =41,h = 10, FO3 = 10. 


Continuação da listagem do 
“Criando um Índice 
Alfabético””. 


6450 


PRINT “PAG” 


NOR NAL 
SET ASIA = 


á370 VTAB q: 
RINT “DATA”: 
HTAB 1040: PRINT “NOME”. 
: leo 3 

PRINT “CHAVE”: MORMAL 


INVERSE é P 


=>) 


MUDAM PAGINA “ 
NAS 


Logo: 


01 = 17 + 156/4 — 6)x10 = 22.33 
15 


x = 27 + (56/2 — 21)x 10 = 30,5 
20 


03=37+ (3.56/4 — 41)x 10 — 38 
10 


Diante desses resultados, podemos 
afirmar que, nesta distribuição temos: 


25% 25% 25% 25% 


Enfim,... 

Com este artigo fechamos a Estatís- 
tica Descritiva. Mas, algumas medidas 
poderiam ser estudadas, como os de- 
cis e os percentis. Elas dividem a amos- 
tra em 10 e 100 partes iguais, respecti- 
vamente. Porém, como não são muito 


usadas pouparemos tempo não as con- 
ceituando esmiuçadamente. 

É necessário que fique claro que a 
esfera estatística não se restringe à Es- 
tatística Descritiva. Para uma verdadei- 
ra análise estatística necessitamos nos 
aprofundar mais em nossos estudos, 
dando continuidade à esta explanação. 
Faríamos um estudo de probabilidades 
e após isto, passaríamos à inferência 
estatística. 

Mas, nosso intuito foi apenas dar 
uma pequena introdução à essa ciên- 
cia, encarada por muitos como dispen- 
sável ou inatingível, o que não é ver- 
dade. 

Aplicada ao computador, ela pode 
obter resultados fantásticos que auxi- 
liem tomadas de decisões, em qual- 
quer ramo da atividade humana. 

Particularmente, espero ter desper- 
tado interesse em nossos caros leito- 
res, para que haja continuidade ao es- 
tudo aqui iniciado. Desde já, desejo- 
lhes: Boa Sorte!!! [6 


UM LUGAR IDEAL 
PARA SEU MICRO 


Ge 


B 6: Cêli 


SPMP Bsq 


MESA P/ MICROS PESSOAIS 
MEDIDAS: 114 x 69 x 71 cm. (altura) 
SOBRE TAMPO: 114 x 31 cm 
ALTURA TOTAL: 97 cm, 


8450 NET 
VTAB 2 


MESAS ESPECIAIS PARA SEU TK 


“Toda desmontável, estrutura 
de aço e tampa em fórmica” 


Consulte-nos: Temos também 


ASC (AS 


no 


i MEN P = 


Representantes: Porto Alegre, Fone: 


Formulários e Periféricos 


MESAS PARA 
TODOS OS MICROS 


RUA BARÃO DE JUNDIAÍ, 1.090 S/5 
JUNDIAÍ — SP — FONES: 434-6828 
434-6422 


(0512) 41-8244; Recife, Fone: 


222-3241/231-2289; Belo Horizonte, Fone: (031) 224-8589; Santos, Fone: 
35-7236; Brasília, Fone: (061) 225-6684; Goiania, Fone: (062) 225-6266/6080; 
Belém, Fone: (091) 233-2996; Salvador, Fone: 244-2311; Campinas, Fone: 
51-2607: Limeira, Fone: (0194) 41-9900. 
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Alta-Resolução no TK-85 
Parte | 


Que tal implantar, no seu computador, um circuito que dá uma 
definição de imagem comparável a de um Apple? Parece um sonho? 
Parece, sim. Mas neste artigo, vou deixar bem claro que isto é 
possível, e a um custo incomparavelmente menor que o de um micro 


Este circuito foi criado num dos 
meus “momentos de inspiração”, em 
que senti a necessidade de mostrar que 
o pequeno TK-85 não é de todo inútil, 
como apregoavam alguns proprietários 
de micros maiores. O resultado disso 
foi um micro completamente “enve- 
nenado””, com alta-resolução gráfica (o 
tema deste artigo), gerador de som, te- 
clado (decente) e um Basic com 32 no- 
vos comandos que o tornam mais rápi- 
do e poderoso. 


O circuito 


Sabemos que a tela de vídeo dos TKs 
é composta por 24 linhas de 32 carac- 
teres. Sabemos também que cada ca- 
ractere é composto por 64 células indi- 
viduais, dispostas em uma matriz 8 por 
8, como em um tabuleiro de xadrez. 
Assim, a tela do micro já é formada por 
256 pontos horizontais (32x 8 = 256) e 
192 verticais (24 x 8 = 192), num total 
de 49152 pontos. 

Por que então o TK já não vem com 
a alta-resolução funcionando? A res- 
posta está no fato de não se poder 
controlar cada um dos pontos indivi- 
dualmente, mas apenas em grandes 
blocos de 8 por 8 (ou seja, um carac- 
ter). Outro problema está relacionado 
com o armazenamento da imagem na 
memória, dada a sua complexidade. 
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que já traz este recurso. 


Armazenando uma tela 


Numa primeira análise, poderíamos 
utilizar um byte para indicar se um pon- 
to gráfico (pixel) qualquer está aceso 
ou apagado. Como temos 49152 pixels 
na tela gráfica, seriam necessários 48 
kBytes para armazenar apenas uma 
imagem, o que não seria nada interes- 
sante. Outra solução (bem mais conve- 
niente) é fazer um mapeamento por 
bits, que faz com que um único byte 
seja capaz de indicar o estado de 8 pi- 
xels e, dessa forma, a memória, neces- 
sária para uma tela plena, fica reduzida 
a 6 kBytes. Devido a problemas de 
temporização, a expansão de memória 
(ou a memória interna do TK85) não 
serve para este fim. Por isto, optou-se 
por um banco de 6 kBytes adicional 


Figura 1 — Exemplo de um caractere 
redefinido. 


Milton Maldonado Jr. 


(três chips de 2 kBytes), que ainda traz 
a vantagem de deixar os 16 kBytes li- 
vres para os programas. 


Enviando uma imagem - 


Enviar uma imagem em alta-resolu- 
ção não é uma tarefa difícil, pois o pró- 
prio gerador de vídeo original do micro 
já se presta a isto. O difícil é controlar 
este gerador, que para realizar o que 
queremos, deve ser manobrado de 
uma forma um tanto incomum. 

Em uma primeira fase, o circuito de 
alta-resolução faz o que se denomina 
“redefinição de caracteres”, ou o con- 
trole total dos pixels que formam cada 
caractere. Por este processo pode-se 
mudar a forma de qualquer caractere, 
bastando para isto alterar os bytes que 
o compõem. Um exemplo disto está 
mostrado na figura 1. 

Se redefinirmos mais de um caracte- 
re e os colocarmos lado a lado, tere- 
mos uma figura maior (figura 2). E se 
fizermos isto na tela inteira? Teremos 
então uma gigantesca figura formada 
por caracteres redefiníveis (num total 
de 768 caracteres) e se os redefinir- 
mos, convenientemente, teremos a 
nossa alta-resolução de 256 por 192. 
Para isto, entretanto, são necessários 
768 caracteres diferentes, e há somen- 
te 64 caracteres. E agora? 


ed E e E Das 
HH 


O truque é inserir 12 caracteres em 
um, OU seja, fazer com que um mesmo 
código corresponda não somente a 
um, mas a 12 caracteres, e de 64 salta- 
mos a 768. Para que isto funcione, di- 
vide-se a tela de imagem em 12 setores 
de duas linhas cada. Se imprimirmos o 
mesmo caracter na tela toda, veremos 
que nas duas primeiras linhas ele apre- 
sentará um aspecto, nas duas subse- 
quentes outro aspecto, e assim por 
diante. 


Funcionamento 


Vamos ver então como isto é feito. 
Quando o computador envia um carac- 
tere, ele consulta uma tabela de for- 
mas que indica o formato de todos os 
caracteres, sendo cada um deles repre- 
sentado por 8 bytes (64 bits). Cada by- 
te é responsável por uma linha do ca- 
ractere (não confundir com uma linha 
da tela), logo são usados 512 bytes pa- 
ra os 64 caracteres, e, conseguente- 
mente, 6144 bytes para os 768. 

O computador está preparado para 
habilitar somente 512 bytes, que são 
" válidos para qualquer posição da tela. 
Tudo o que deve ser feito é chavear ta- 
belas de 512 bytes, sendo cada tabela 
responsável somente por duas linhas 
do vídeo. Este chaveamento deve ser 
feito de forma sincronizada com a ge- 
ração da imagem, e por isto não pode- 
mos contar com a CPU, que neste ins- 
tante não reconhece os comandos do 
programador. 

O circuito da figura 3 (resumido) faz 
este trabalho. O contador-1 faz uma di- 
visão de frequência, de modo que dele 
saia um pulso a cada duas linhas (16 
“rasters”) enviados à televisão. Este 
pulso incrementa o contador-2, que faz 
a troca das tabelas de caracteres atra- 
vés da manipulação das linhas A9 a 
A12, sendo que A9 e A10 fazem uma 
seleção dentro de cada chip de memó- 
ria, enquanto A11 e A12 selecionam o 
chip de memória. 

Outra parte importante do circuito é 
o multiplexador de quatro linhas (8 en- 
tradas, 4 saídas), que separa em tem- 
pos exatos as linhas A9 a A12, vindas 
da CPU, das linhas OA a QD, vindas do 
contador-2. Durante a fase em que a 


MULTIPLEX 


OA QB OC OD 


CLOCK 


RESET 


CONTADOR-2 


CLOCK VÍDEO 
(15750 Hz) 


oD CLOCK 


RESET 


CONTADOR-1 


CLOCK 60 Hz 


Figura 3 — Diagrama de blocos do circuito de alta-resolução. 


CPU está voltada ao programa do 
usuário (RFESH = 1), o multiplex co- 
necta as linhas A9 a Al2 às memórias, 
permitindo sua leitura (PEEK) e escrita 
(POKE). Quando a CPU está voltada à 
geração de imagens, o multiplexador 
habilita as linhas OA a OD (RFSH = 
0). 


Recursos gráficos 


O circuito é controlado por um soft- 
ware gráfico que lhe confere os se- 
guintes recursos: 

HGR: passa o sistema para o modo 
gráfico. 

TEXT: passa o sistema para o modo 
texto. 

CLEAR: apaga toda a tela gráfica. 


PLOT: acende um ponto gráfico espe- 
cificado. 
UNPLOT: apaga um ponto gráfico es- 
pecificado. 
POINT: indica o estado de um ponto 
especificado. 
DRAW: interliga dois pontos especifi- 
cados. 
COPY: faz uma cópia gráfica na im- 
pressora. 

Na próxima edição passaremos à 
montagem eletrônica do circuito. Até 


4! 
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Foi pensando em você que criamos o CNTK — Clube 
Nacional dos Usuários do TK — onde o associado 
encontra o apoio e a assessoria necessária para explo- 
rar ao máximo os recursos e as ilimitadas utilidades 
de seu micro. 


QUAIS AS VANTAGENS? 


e NOVIDADES 
O CNTK oferece as novidades mais recentes em peri- 
féricos e programas, dispondo para isso de correspon- 
dentes no exterior e de uma equipe de profissionais 
de altíssimo nível. 


e PERIFÉRICOS 
O CNTK possui as mais recentes novidades do mer- 


cado, e equipamentos exclusivos, desenvolvidos no 
próprio clube, com preços reduzidos. 


e FITOTECA 

O CNTK tem uma gigantesca FITOTECA com 1000 
programas que está em constante ampliação nas áreas 
de Lazer, Exatas, Humanas e Biológicas. Receba gra- 
tuitamente uma fita gravada por mês, com até 10 pro- 
gramas de sua escolha, 


e LIVROS 


O CNTK através de convênios com as editoras, for- 


nece livros com descontos especiais. 


e SORTEIO 


O CNTK presenteia seus associados com um peri- 
férico, através de seus sorteios mensais. 


e INTERCÂMBIO DE PROGRAMAS 
Receba 2 programas a mais na sua cota mensal para 
cada programa inédito que você nos enviar. 


e DIFUSÃO POR AMIZADE 


Ganhe livros, periféricos e programas do CNTK, 
trazendo novos sócios ao Clube. 


É FÁCIL TORNAR-SE SÓCIO DO CNTK? 


Sim, para associar-se ao clube basta preencher o 
cupom abaixo e enviá-lo junto com o vale postal 
no valor de 1,5 ORTN a: 


CLUBE NACIONAL DO TK 

Cx. Postal N9 6605 

CEP:01051 — Agência Central 

São Paulo - SP 
e em pouco tempo você receberá em sua casa a cartei- 
rinha de sócio, as listagens dos programas, dos livros 
e dos periféricos disponíveis, o carnê de pagamento 
de manutenção mensal no valor (aproximado) de uma 
ORTN (com reajustes trimestrais) e a fita de brinde 
com cinco jogos inéditos no mercado nacional. 


HERRRERERSZERENERREERRRRRRRESCOS CS 
O Rn 
Ea EEERESENAFERRERREENAE 

DECS DES Ea E 


EAR MESES RARE SEER 
EC dd o ERES E é a nino 
MTE SREEERSREERREEDE 


INDICAÇÃO DIFUSAO POR AMIZADE 


EUR EEEF RREAEASRE CONERERE 


SÓCIO 


MEMÓRIA 


MIGRO 


cada vez melhor! 


Ã revista MICROHOBBY é dedicada aos 
leitores que desejam tirar o máximo proveito 
de seu micro. 

Muitas dicas, programas e cursos numa lin- 
guagem altamente didática. 

Todo mês um mundo de informações valiosas 
tanto para os principiantes, quanto para os “ex 


perts”. 


OTRA 


CORREIOSOFT 


DA EUROPA PARA VOCE FANTÁSTICOS PROGRAMAS PARA TK9OX 


JOGOS — 48 Kb 


01-1 PSYTRON — destrua os invasores da 
cidade — Jogo inacreditável. 

01-2 KNIGTH LORE -— Tipo médico e o 
monstro, incríveis efeitos. 

01-3 MANIC-MINER — Jogue o martelo 
contra os monstros na exploração da 
mina. 

03-3 TIME GATE — Pilote uma sofisticada 
nave espacial. 

03-4 HUNTER KILLER — Pilote um sub- 
marino contra alvos navais — Fantástico. 

03-5 ALCHEMIST — Seja um mago explo- 
rador de catacumbas. 

04-1 STAR TRAIL — Pilote uma nave inter- 
espacial. 

04-2 BACK-GAMON — Jogue gamão contra 
o computador. 

04-3 MAD-MARTHA — Fuja de uma mulher 
que quer lhe atacar. 

04-4 FOOTBALL MANANGER -— Seja um 
treinador de futebol, disputando o 
campeonato inglês. 

05-3 BATTLE OF BRITAIN — Comande 
esquadrões de spitfires na 22 Grande 
Guerra. 


06-1 CHEQUERED FLAG -— Pilote um tor- 
mula 1 — Jogo tridimensional. 

06-2 MR. WIMPY — Ajude o Bar-Man a pre- 
parar as refeições. 

06-4 HUNK-BACK -— Salte os muros do cas- 
telo para salvar sua amada — Várias teias 

06-5 HARD CHEESE -— Tipo come-come, 
parecido com Mr. DO. do Colevision. 

07-1 TERROR DACTIL — Fuja dos ptero- 
dáctilos após você ter caído num vale 
perdido — Bom jogo. 

07-2 FLIGTER PILOT — O melhor simula- 
dor de vôo para o TK-90X — Fantástico. 

08-1 FLIGHT SIMULATOR — Cores e alta 
resolução neste jogo fantástico de si- 
mulação de vôo. 

08-3 FULL THROTTLE — Corra com uma 
motocicleta em vários circuitos interna- 
cionais. 

08-4 STAR SHIP ENTERPRISE — Simula 
uma espaçonave com 
mapa de vôo, avarias 
e combates espaciais. Quero adquirir 

o(s) seguinte(s) 

programa(s) 


cheque do banco 


Todos os programas contém instruções detalhadas. 


Prazo de entrega: 3 dias úteis. 
Preço de cada programa: Cr$ 40.000. 


Para adquirir os programas, preencha o cupom e envie-o 


junto com um cheque nominal para: 


CORREIOSOFT 
Cx. Postal n9613 


CEP 01051 - São Paulo - SP 


nº 


NOME: 
END.: 


CIDADE: 


CORREIOSOFT 


nominal à CORREIOSOFT 


JOGOS DE 16 Kb 


01-4 THRUSTA — Entre num labirinto e 
mate os monstros — Jogo sensacional. 

05-1 JUNGLE TROUBLE — Você é um ma- 
caco numa floresta, e tenta fugir dos 
jacarés. 

10-1 TROM — Pegue diamantes nas paredes, 
mas cuidado com os interceptadores. 

10-2 STYX — Saia de um labirinto sem que 
os bichos lhe ataquem — Jogo bidimen- 
sional. 

10-3 PUSH-OFF — Você é um escaravelho 
que tenta fugir das aranhas. 

11-1 CAÇA AO TESOURO -— Labirinto tí- 
pico com algumas armadilhas. 

11-3 POCKETMAN — Várias telas, você é 
um astronauta explorando o espaço. 

11-4 SUB SUB SUB — Recupere os tesouros 


submarinos. k 
: PROGRAMA VALOR 


ESTADO: 


POR DENTRO DO APPLE 


Ajuste de Curvas 


Este programa pode ser utilizado 
com grande eficiência sempre que for 
preciso obtermos uma relação entre 
duas grandezas quaisquer. 

Duas grandezas podem ser relacio- 
nadas de diversas maneiras, mas nem 
todas condizentes com a realidade. En- 
tende-se por “melhor ajuste” a equa- 
ção que mais se aproxima dos pontos 
obtidos, experimentalmente. O progra- 
ma está apto a fornecer cinco tipos de 
ajustes: 

1. LINEAR 

y=A+Bx 
2. EXPONENCIAL 

y = A.ek 
3. LOGARÍTMICO 

y=A+BLN(x) 

4. POTÊNCIA 
y = A.xB 

5. HIPERBÓLICO 
y=1/(A+Bx) 


E 


100 REM exsMENUsHa 

140 MEii) = "LINEAR Y=A+B& 
à 

iz0 Moto) = “EXPONENCIAL  Y=AsER 
P(BAXI ADO” 

130 M5(3) = “LOGARITMICO  Y=Atãx 
LoGtx)” 

140 M5(d) = “POTENCIA Yehkx 
Ago 

ist ME(G) = “HIFEREOLICO  Y=i/tA 
+Bxk$? 

160 ME(ó) = CFIMALIZARO 

170 H= 44 = Gil = 6:DIGP = 


180 HOME 
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Estes tipos são itens de menu do 
programa. Você poderá escolher um 
deles, entrar com os dados, analisar o 
resultado e partir para um novo tipo de 
ajuste com aqueles mesmos dados, 
por exemplo. Isto foi feito a fim de que 
você possa escolher o ajuste que me- 
lhor se adapte aos pontos fornecidos, 
através da análise do coeficiente de 
precisão R2. Quanto mais próximo de 
1, este for, melhor terá sido o ajuste. 


Vamos a um exemplo prático para 
ilustrar o funcionamento do programa. 
Suponha que uma pequena empresa 
deseja saber qual a projeção de vendas 
de um determinado produto para o ano 
de 1987, baseando-se nos dados obti- 
dos de 1977 a 1985. Neste caso teria- 
mos uma tabela como esta: 

Ano 777879 80 81 82 83 84 85 
Vendas em 


mo ame a cms mm É É E 
Camimeo | 


a 
UIMB VAL 4d 


RINITE “nzazzz=am=D>2225=a2=225==02 
200 UTAB 45 o E INVERSE 2 PE 
NT Bduslesa PE CORO 
à 5“: MORMAL 

0 VTAB 20: HTAR ii: PRINT “ESC 


ULHA UM DOS TIPOS” 

OP = 

INVERSE é UTAB ds 
SPL 40): MAB ds 
FOR i=2 To 2 des 


cai 
I8T 
Et 40): 


HTAB 12 PR 
: PRINT SP 
UTêB 1: 


Cesar de Afonseca e Silva Neto 
e Wilson José Tucci 


milhares de 808497 113111 118127130 135 
unidades 


Rodando o programa, entrando os 
dados e testando os diferentes tipos de 
ajuste chegamos à tabela abaixo: 


AJUSTE EQUAÇÃO R?2 

Linear = —460,5 + 7,1 0,9527 
Exponencial y = 0,50. e 96% 0,9289 
Logarítmico y = —2402 + 571,8.inX  0,9567 
Potência  y = 5,58.10-9,x%4 0,9431 


Hiperbólico y = 1/(0,061 — 6,375.1074 0,8966 


Observando a tabela, percebemos 
que o melhor ajuste foi o LOGARIT- 
MICO, com R2igual a 0,09567. 

Agora, a fim de obter a projeção de 
vendas para 1987 basta efetuar o ajuste 
logarítmico e digitar 3 (INTERPOLAR), 
entrando com 87 para o valor de X, que 
o programa calculará f(x) = 151,7. 

Bons ajustes! 


HTAB 47 PRINT“ 
Toro MENTE NORMAL 

240 FORI=4TOL:VTABV+I + 
DISP: HTAB Hz PRINT Is SPCC 1); 
$(1)7 NEXT 

0 P= PEEX ( - 14984) 

IF P 4 128 THEN 240 


* HTAB 40: PRIN 


er 


280 POKE - 14348,0 

250 IF P = 14 THEN 380 

300 IF P = 149 THEN OU = OP30P = 
op + 

30 IFP = 19 THEN OU = 0P:0P = 


——+p 


POR DENTRO DO APPLE 


—> 
OP = 4 
320 IFP) 
+L THEN OU 
330 1F OPC é THEN OP 
O TF OP L THEM GP 


350 VTAR VU + OU x DIST TAB ê: 
PRINT SPLI H - 25500. GPCC dd; 
(04); TABC di) 

360 INVERSE : UTÃS U + OP * DIST 
: HTÃE 4: PRINT SPECH - djiôP: 
SPCC idsMSLOP): TÁBO 38): nORMAL 


370 GOTO 250 
SBD) REM DESVIAR EXECULAO 


38) JF OP = E o HORE : END 


390 

408 

5 

40 ON OP GOSUB i00G L0SD Lito, 
140, 1220 

420 GOTO 1270 

1009 REM AJUSTE LINEAR 

DIO A = (Vis k-xia Pi) Zn 
* Ro =X 2) 

iD2b B=(NxPi-xixYi)/iN 
*X2 -Ri* 2) 

1030 RE = (hxvi+rBxPi Yi 
Cr Ni to - Ten 

1040 RETURN 

1050 REM AJUSTE EXPONENCIAL 
1060 AL = (Lg x xo - Xixi od 
Nuk -Xi* 3) 

1OJO B=(Nal3- kia lo) ZEN 
*X-Xº 2) 

1060 Ré = (AL a Ló +Bxiz-ilá 
Pp NDy f- Lá oo 
190 A = EXP AL) 

1400 RETURA 
ti20h=(ixl2-Lixl4)/ 48 
2 = [8 22) 

1130 DB = (Nx L4-Lixtri)zain 
4 = Ei 22) 

ti40 RE =(AxYi+BxLi-Yir 
ENVIE NES AN) 

1150 RETURM 

1160 REM POTENCIA 

ti70 AL = (Ló x dad -it 

Nal2-ii*t2 

tiB0 B=(NxlS-li zig / in 

*l2-Li“é 2) 

1190 R2 = (AL x Ló +64 LS -lLá 
"An Patr =lá tz 

i200 À = EXP talo 


1210 das 


1 TEO 


Lito 


NMeli-XLXIZZAM 
Yi A 2) 
Re= (As IZ+BAI- 24 
N/(B-12*2/N 
RETURN 
FEM MOSTRAR RESULTADO 
UTAR 2: INVERSE 3 PRINT NS 
09)2 NORMA 
t300 VTAB 42 PRINT “A = “sá 
1340 PRINT “B = “4h 
320 VTAR 7: PRINT “RO 
1330 SOSUB 1590 
4340 IF TA = THEN LEO 
IF Tá = 2 THEN KUN 
IF TA ( 33 THEN 1330 
70 REM INTERPOLAR 
380 XH = XCLNIYE = Yes) 
OD XL = XULDEIYL = YtL) 
FORI=Í TON 
IF XH € XL) THEN HH = Xi 


EH I) THEN A 
F ML» Xil) TREN AL = 
IF YL O) YCI) THEN YL 


NEXT 

VTAB 10: CALL = 958 

UTAS 40: INVERSE 3 PRINT “1 
NTERPOLACAQ!: NORMAL 
1480 TAB 427 PRINT “X-MAXIMO 2º 
XE, PY-MAXTMO 2“, YH3 PRINT 
1490 PRINT OX-MINIMO 25 XL,Y-HI 
NIMO 2º; YL 
1500 UTAB 16: INPUT “ENTRE COR O 
5 VALORES DE X 2º;X 
(540 ON OP BOSUB 1540,1550,1560, 
1570.1580 
(520 VTAB ié: PRINT “PARA X =“; 
X5! ==FOU = “Y 
1520 SOTO 1320 
154) Y=4+6 4X: RETIRA 
50 Y= A+ EXP (BK): RETURA 


1540 Y=A+B+* 106 (X): RETURN 


T=8+X* E: RETURN 


1560 Y = 1 / (A+ 4X): RETURN 


15790 REM ESCOLHER CPEAO 
1650 VTAB 19: PRINT “DIGITE ( )” 


1óih PRINT TÁRC 3i“ti> OUTRO AU 
USTE CHESHOS PONTOS)” 


té2) PRINT TABE 3)42) OUTRO AJ 
USTE (NOVOS PONTOS)” 

1:30 PRINT TAB( 3)%43) INTERPOL 
AR é 

1640 UTAB 19: HTAB 9: GET TA 
1650 PRINT TA 

ió6l RETURN 

té/0 REM ENTRAR PARES 

tás HOME 

fé90 VTAB 3: INVERSE : PRINT NS 
OP): NORMAL 
1700 UTAE 5: 
NTOS 2/4N 
1710 DIM XiNI,YEN) 

1720 FORI=4 TON 

1730 TAB 75 PRINT “ENTRADA “2: 
INVERSE 2 PRINT 1: NORMAL 

1740 CALL - 958 

1730 INPUT “VALOR DE X =)4sX(D) 
1760 INPUT CUALOR DE Y == YtT) 
1770 Mt = Xi + XNDsyi=Yi+ Ya 
) 

1780 E? 
Pego? 
1790 13 
AE 
iS00 X4 
LT) é 
1840 Li LOG (X(I)) 

1620 Lo LOS (ID) 

1830 L3 = Lo + Ki) x LOG (VIT) 


INPUT “NUMERO DE PO 


RE + KO) é rt yo 


KR + MI ta = 13 + 


RiI) * dit4 = 


nunca nra 


1840 id Fl * LOG OD) 


1850 LE 5 + LOG (Xtlji x LOG 

Eri); 
1840 Lá 
1876 L7 
1680 Pí 
iB90 Po 


Lé + LOG CYilD) 

L7 + LdG CY) 

BE + XUS ET) 
PRA RC 2 e NT) 
1900 Ii = li + XD) x ti 4 Y(1)) 
10 12 =12+(4/Y(0) 

1920 19 = Io+ (E 4 0) CR 
1930 NEXT 

17940 RETURY 
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DIDATICA 


As funções e seus gráficos matemáticos 
no TK-2000 


Nesta edição estamos dando continuidade ao 
assunto abordado na edição anterior — Gráficos 
e Funções — através de um programa que roda 
tanto no TK-2000 quanto no Apple. 


Ao estudarmos os diversos fenôme- 
nos da natureza surge a necessidade 
de uma “ferramenta matemática” que 
permita a análise e o entendimento 
desses fenômenos, senão, vejamos: 
— ao estudarmos o movimento, o es- 
paço percorrido é considerado uma va- 
riável que muda em dependência da 
variação do tempo; 


s = espaço percorrido 


Figura 1 


— a altura de uma pessoa depende da 
idade; 


Figura 2 


— a distância que um projétil pode al- 
cançar depende do ângulo entre o ca- 
nhão e o solo. 
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Milton Rodrigues 


Figura 3 


Essa “ferramenta matemática” foi 
definida, no princípio do século XVIII, 
por Jean Bernovilli e surgiu da necessi- 
dade de se examinar a variação de um 
valor em dependência da variação 
deum outro.-No decorrer da história da 
matemática, essa noção foi gradual- 
mente ampliada e completada. 

Com o aparecimento da Teoria dos 

Conjuntos, a noção de “função” ficou 
definida da seguinte maneira: 
— “dados dois conjuntos A e B, cha- 
ma-se função de A em B a uma rela- 
ção entre A e B, onde a cada elemento 
de A associamos a um único elemento 
de B”. Abreviando tudo isso escreve- 
mos: 


TAB 
de Venn 


ou utilizando diagrama 


4 4 
Figura 4 


Assim, uma função envolve três coi- 
sas: 
— um conjunto 4, chamado de domí- 
nio; um conjunto B, chamado de con- 
tra-domínio e uma “regra” ou “lei”, 
denotada por "f”” pela qual nos é dito 
como associar a cada x € A a um úni- 
coye B. 

O domínio também é chamado de 
conjunto de partida e o contradomínio 
de conjunto de chegada. 
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E 


Conjunto B de chegada 


de partida 


> 


flevaxemx? 


= 
Figura 5 


Tomemos um exemplo prático: 

Dados os conjuntos: A = (—2, —1, 
0, 1, 2), chamado de domínio e B = (1, 
2, 3, 4, 5), chamado de contradomínio 
e uma função definida pela seguinte 
lei: 

“A cada elemento do conjunto A as- 
sociamos ao seu quadrado em B”, sim- 
bolicamente — f(x) = x2. 


(Domínio) (Contradomínio) 


L 


Figura 6 


O que a função “f(x) = x2" faz? Ve- 
jamos: 


p/x = —2temosf(—2) = (—2)2 = 4 
—fleva —2em4 

p/x = —1Ttemosf(—1) = (—-1)2= 1 
—>fleva —1em 1 

p/ x = O temos f(0) = (0)? = 0 —f le- 
va 0em0 

p/x = 1 temos f(1) = (1)? = 1 —fle- 
valem 

p/x = 2 temos f(2) = (2)2 = 4 > f le- 
vaZ2em4 


Podemos observar que todos os ele- 
mentos do domínio encontraram seus 
valores correspondentes no contrado- 
miínio, isto é, não sobrou nenhum ele- 
mento em A, e também, um elemento 
de A com um único em B, isto é, nun- 
ca saem duas flechas de um elemento 
de A. 


Observando novamente o diagrama, 
notamos que a função “usa” apenas 
os elementos 0, 1, 4 do contradomínio. 
A esse subconjunto do contradomínio 
chamamos conjunto-imagem da fun- 
ção. Chamamos então de imagem a 
cada elemento de B em que chega a 
flecha. 


Conjunto 


(Domínio) (Contradomínio) 


E 


Figura 7 


Fica ainda mais fácil entendermos o 
que acontece se imaginarmos uma 
função de A em B como se fosse uma 
máquina que “transforma” elementos 
de A em elementos de B. 

No nosso exemplo, estamos alimen- 
tando a nossa “máquina” com os ele- 
mentos (0, 1, —1, 2, —2) e estamos re- 
colhendo, na saída, os elementos (0, 1, 
4). Os elementos que “sobraram (2, 3, 
5)” é como se já estivessem dentro da 
cesta, isto é, não foram recolhidos 
agora! 


ENTRADA 


Figura 8 


Você deve estar perguntando: — 
onde entra o microcomputador nesta 
história? Pois bem, para visualizarmos 
uma função de maneira global, nada 
melhor que analisarmos o seu gráfico 
em um sistema de coordenadas carte- 
sianas e é aí que entra o micro para nos 
dar uma “mãozinha”! Mas isto nós ve- 


remos mais para frente, por enquanto 
vamos ficar com a maneira “'tradicio- 
nal” e construir o gráfico do exemplo 
anterior. 

Primeiro fazemos a tabela e depois o 
gráfico. 
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Como podemos ver, esse gráfico 
não está nada parecido com uma “pa- 
rábola”, pois os pontos estão muito es- 
paçados por causa dos valores do do- 
mínio e do conjunto imagem que fo- 
ram definidos de antemão. 

Normalmente, com o microcompu- 
tador, iremos trabalhar com valores de 
domínio e contradomínio no conjunto 
dos números reais (R), isto é, a função 
será aplicada de Rem R (f: R—>R). 

Vamos ver o que acontece se mu- 
darmos o domínio e o contradomínio 
do nosso exemplo: A = Re B = R-+> 
ftR—R. 


Vai existir imagem? Não! V=2*é um 
número real? Não! 

Isto significa que caso o nosso do- 
mínio não esteja muito bem especifi- 
cado a função não “funcionará”. Nes- 
te caso, sabemos que não existe raíz 
de um número negativo quando traba- 
lhamos com números reais. Qual vai 
ser então o domínio de f(x) = x para 
que a função exista? 

Será o conjunto dos reais positivos 
mais o zero (D(f) = R ,). 

E qual será o contradomínio? Pode- 
mos dizer que serão sempre os reais, fi- 
cando a função definida assim—»f : A 


I 
[tan pareçe 
IE /1 
IN 3 vi 
I E / | 
| 
> Y o 
| % e 4 
/ 
1 “4 4 | 
dy AUy sie Ê 
K A | 
I 1% 156 1 I 
| ! RES / I 1 
=2 a 1 a 
Figura 10 


Agora sim o nosso gráfico ficou 
completo, isto por que preenchemos 
os vazios que existiam entre —2 e 2. 

Cuidado: nem sempre poderemos 
mudar ao nosso bel prazer o domínio 
de uma função. 


Campo de definição de uma função 


Chamamos de campo de definição 
de uma função ao conjunto de valores 
do domínio (abreviadamente D(f) para 
os quais a função tem condições de 
existir. Complicou? Vamos descompli- 
car. 

Digamos que temos a FIA—+>B, 
dada pela seguinte lei: f(x) = Vx* Será 
que podemos dizer que o domínio da 
função serão os números reais (A = 
R)? 

Depende. Ter D(f) no campo dos 
reais implica que teoricamente devo 
pegar todos os valores em R; pois 
bem, e se pegarmos o número “—2” 
ou qualquer outro negativo? Teremos: 
parax = —2> f(x) = V>2"221! 
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—>R, onde A(D(F)) depende da fun- 
ção. 

Pegando outro exemplo, seja f : A-» 
R definida por f(x) = 1/x. Qual o domí- 
nio? Bem, podemos colocar no lugar 
de x qualquer valor real, menos o zero, 
pois não existe divisão por zero, por- 
tanto, D(f) = R* (este asterisco signi- 
fica que estou pegando todos os reais 
menos 0 zero). 


Para analisarmos uma função grafi- 
camente, será necessário desenvolver- 
mos um pouco mais de teoria, e co- 
nhecermos quando uma função é cres- 
cente ou decrescente; par ou ímpar; 
composta; injetora, sobrejetora e bije- 
tora e função inversa. 


Função crescente e decrescente 
Função crescente 


Dada uma f : A—»B, e seu gráfico: 


Figura 11 


Uma f : A—> B é crescente em um 
determinado intervalo quando para 
quaisquer x, e x, deste intervalo, com 
x, > x» tivermosy, >Yy,. 


Função decrescente 


Dada uma f : A—»B, e seu gráfico: 


Gio 


Figura 12 


Dizemos que esta função é decres- 
cente em um determinado intervalo 
quando para quaisquer x, e x, deste in- 
tervalo, com x, > x», tivermos y, < 
Y2 


Resumindo: 


É a X<X2-»>Y1<Y2 
Função 

nreconh-s-se X,<X2-»Y1>DY2 
Função par e função ímpar 


Função par 


Dada uma f : A—>B e seu gráfico: 


(veja figura 13) 

Observamos que: 
p/x = —30ux = 3temosy = 5 
p/x = —2o0ux = 2temosy = 0 
p/x=0 temosy = —4 


ou seja, para valores sistemáticos de x, 


DIDÁTICA 


Figura 13 
temos o mesmo valor para y. Neste ca- 
so temos uma função par. 


Função ímpar 


Dada uma f : A—>B e seu gráfico 


Figura 14 


Observamos que: 
p/x = —2temosy = 
p/x = —1temosy = 
p/x = Otemosy = 0 
p/x = 1temosy = 1 
p/x = 2temosy = 8 
ou seja, para valores simétricos de x, 
temos valores simétricos de y. 

Neste caso temos uma função impar. 


—8 
—1 


Resumindo: 


Se o gráfico possuir uma simetria 
entre o primeiro e o segundo ou o ter- 
ceiro e quarto quadrantes, ou seja, f(x) 
=f(-x)p/vy x € D(f), a função é de- 
nominada par. 


Se o gráfico possuir uma simetria 
entre o primeiro e o terceiro e o segun- 
do e quarto quadrantes, ou seja, f(x) = 
—f(x)p/ y x € D(f), a função é deno- 
minada ímpar. 


Função composta 


Dados os conjuntos: A = (0,1,2),B 
=(1,2,3)eC=(2,3,4,5)eas fun- 
çõesf: A->Beg: B-—cC (g também 
pode simbolizar função) representadas 


' abaixo: 


Vemos que: 
f(0) = 1e g(1) = à 


A imagem de f 
torna-se domínio 
deg. 


f(1) =2e9(2) = 3 
f(2) =3eg(3) = 4 


Podemos “cortar caminho” asso- 
ciando diretamente o conjunto A com 
o conjunto C, fazendo a composição 
das funções f e g, simbolizada por gof 
(g “bola” f ou g composta com f), fi- 
cando o diagrama da seguinte forma: 


ou seja: 

(gof) (0) = 2 
(gof) (1) = 3 
(gof) (2) = 4 


Vamos imaginar duas máquinas: 

Se jogarmos x € A na entrada da 
primeira máquina, obteremos f(x) na 
saída. 

Colocando f(x) na entrada da segun- 
da máquina, teremos na saída g (f(x)). 
(Notamos que a imagem da primeira 
função passa a ser o domínio da se- 
gunda função). 

Transformaremos estas duas máqui- 
nas em uma! 

Vejamos o exemplo: se f: A—>B é 
dada por f(x) =x + 1eg: B—C é da- 
da por g(x) = x + 2, então gof: A—»C 
será dada por: (gof) (x) = g(f(x)) 


gif(x)) = g(x + 1)«— substituin- 

dofix) =x + 1 

g(x+1) =x + 1 + 2<—substi- Hgof)(x) = x +3 
tuindo x + 1 no lugar de x 
x+1+2 =x + 3<-redu- 

zindo os termos semelhantes. 


Figura 16 
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Vamos provar: (gof) (x) = x + 3 

p/x = O(gof) (x) = O + 3 = 3) Exatamente 
p/x = 1(gof) (x) = 1 + 3 = 47comoa nossa 
p/x = 2(gof) (x) =2 + 3 = 5 )“máquina”! 


Tipos de função 
Função injetora 


“Uma f: A +B é injetora se a cada 
elemento de B, imagem da função, 
corresponder a um único elemento de 
A, domínio da função.” 

Exemplo: 


Exemplo: 


Figura 17 


no exemplo temos: 

O € B corresponde a O € A 

1€ Bcorrespondea 1 € A 

4 € Bcorrespondea 2 € A 
Contra-exemplo: 


Contra-exemplo: 


Figura 18 


A função representada não é injeto- 
ra, pois ao elemento 4 do conjunto- 
imagem correspondem dois elementos 
do domínio. a 


Função sobrejetora 


“Uma f : A—>B é sobrejetora se to- 
dos os elementos do contradomínio B 
são imagens de algum elemento do do- 
mínio: (Im(f) = B).” 


[im(f) = (0,1) = 8] 
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Figura 19 


Em outras palavras, o contradomínio 
e o conjunto imagem são a mesma coi- 
sa, não “sobra” nenhum elemento no 
conjunto B. 

Contra-exemplo: 


Contra-exemplo: 


pu 


2 
4 
6 
8 


Figura 20 


A função representada não é sobre- 
jetora, pois estão “sobrando” os ele- 
mentos 6, 8 no contradomínio, ou se- 
ja, Im(f) = 42,4) e o contradomínio B 
= 1 2,4,68)-»Im(f) = B. 


Função bijetora 
Uma f: A —B é bijetora se ela for, 


ao mesmo tempo, injetora e sobreje- 
tora. 


Figura 21 
Função inversa 


“Dada uma função bijetora f : A-— 
B, chamaremos de função inversa de f, 
indicada por f—!, a função g : B—>A, 
tal que se f(x) = y então f(y) = x, para 
quaisquerx € Aey € B.” 

Exemplo: 

dada a f : R—»R definida como f(x) 
= 2x, obter a função g:B—» A, g = 
f-—!, e seus respectivos gráficos. 


Para determinarmos a f—! fazemos: 


trocamos de posição simultaneamen- 


Y=<x 
[K=H] teoxcom oy 


isolamos y 


e temos então a inversa procurada 


Representação gráfica 


- Eixo de Simetria 


Figura 22 


Podemos observar que os gráficos 
que representam f e f-! são simétricos 
à bissetriz do primeiro e terceiro qua- 
drantes. 


Resumindo: 


Duas funções dizem-se inversas, 
quando o domínio da primeira é con- 
tradomínio da segunda, e o contrado- 
mínio da primeira é o domínio da se- 
gunda. 


Análise dos Gráficos 


Depois desse pacote de teorias, de- 
vemos estar preparados para a análise 
de gráficos e da relação entre a “fór- 
mula” de uma função e o seu respecti- 
vo gráfico. Optamos pelo último para 
analisar, pois permite uma visualização 
global do que está acontecendo. 

A construção de um gráfico é, na 
maioria das vezes, demorada e traba- 
lhosa e, nos orientando pela lei do 
menor esforço, porque não deixar esse 
trabalho para o microcomputador? 

É o que propõe este programa, onde 
nós temos várias opções de função à 
nossa disposição, bastando para isso 
entrarmos com os dados, que o pró- 
prio computador irá pedindo. 


MIGRO: 


O Cometa de 
Hailey no seu Micro, 


Conípondo Música 
no TK 90X 


Valor 
Cr$ 132.000, 


LE] Assinatura Inicial 
Renovação 


Validade: 28/02/86 


Estes preços são válidos até 28/02/86 
Pagável em qualquer Agência 
do Banco Bradesco 


Rua do Bosque, 1234 -PABX 825-3355 Cx, Postal 54096 


CEP 01136 - São Paulo - SP 


Validade: 28/02/86 
Valor: Cr$ 132.000, 
U) Assinatura Inicial 
LU] Renovação 


ft Validade: 28/02/86 
| Valor: Cr$ 132.000, 
1 E] Assinatura Inicial 
! L] Renovação 


Bradesco - Ag. 0138-4 


Bradesco - Ag. 0138-4 
Consolação - C/C. Nº 73966-9 


Consolação - CIC. Nº 73966-9 
válido se autenticado mecanicamente pelo Banco 


Via Assinante 


| 
| 
l 
| 
| 
I 
| 
| 
I 
| 
! 
l 
| 
J 


vóldo se autenticado mecanicamente pelo Banco | 


Via Banco ] 


0 Assinatura Inicial 
U] Renovação 


' Autorizo pela 


Cr$ 132.000, 
1 presente minha: 
) 


Atenção: 
Em caso de renovação de Assinatura, 
cole a etiqueta de endereçamento 


atual no espaço reservado ao endereço, 
via Microhobby. 


enisreco | [| | 
eoro [III 
Cuace | | [|| [je |] 
COMICS IDADE 


Bradesco - Ag. 0138-4 Consolação - CIC. Nº73966-9 


Assinante 


Válido se autenticado meconicomente pelo Banco 


! 
| 
Via Microhobby 


SIM, desejo receber os exemplares assinalados abaixo 
pelo preço de Cr$ 12.000, cada. 


E 
Lello 
EH RENDERRRRERRE ERRER 
CNE CORRRERRENRERREE 


DNº2 ONS4 ONO NO ONSM CNA2 ONSIS ONA 
DNº45 ONº6 NI ONA CINCA9 CNC20 CNS  ONS22 
0 Nº28 ONº24 N22 Total do Pedido CrS. 


Envio Cheque Nominal cruzado ou Vale Postal à Microdigital Eletrônica Ltda / 
Microhobby Caixa Postal 54.096 - PABX 825 - 3355 - CEP 01136 
Cheque Nº U) Vale Postal 


Peça os números atrasados 
e complete a sua coleção 


DIDÁTICA 


Após a digitação do programa dê 
RUN, se tudo correu bem, o programa 
irá mostrar um menu com sete opções. 

Vamos apertar a tecla 1 e entrar na 
função de primeiro grau: 

— entremos com a função f(x) = 2x 
+ 1; 

— o computador irá pedir o valor de 
£A>, isto é, o número 2 na nossa fun- 
ção, digite 2 e tecle RETURN e depois 
o valor de <B>, proceda da mesma ma- 
neira e espere, em seguida o computa- 
dor mostrará a função e pedirá que 
confirmemos se desejamos continuar 
ou não. Pressionemos a tecla S, qual- 
quer outra fará o programa voltar ao 
início, e obteremos o gráfico: 


Figura 23 


Vamos analisá-lo: 

— função crescente, pois ao aumen- 
tar o valor de x aumenta o de f(x); 

— função nem par, nem ímpar, pois 
não possui nenhuma simetria; 

— para descobrirmos se a função é bi- 
jetora podemos nos utilizar do seguinte 
artifício: tracemos, simultaneamente, 
paralelas ao eixo 0X. Se cada uma 
dessas retas cortarem a função em 
apenas um ponto, a função é injetora. 
Sabemos que a função do primeiro 
grau é definida de R em R, isto é, se o 
domínio é R, o conjunto imagem só 
pode ser R também, então Im(f) = 
contradomínio e portanto sobrejetora. 
Se é injetora e sobrejetora então é bije- 
tora. 

Concluindo, se o coeficiente numé- 
rico de x € A for positivo a função se- 
rá crescente; se negativo será decres- 
cente. Se A for zero, a função será 
chamada de constante (verifique). 

A função será ímpar (jamais será 
par) se B for zero (verifique) e final- 


mente toda função de primeiro grau é 
bijetora. 

Vamos apertar agora a tecla 2 e tere- 
mos uma função quadrática. Entremos 
com a função f(x) = x? + 2x + 1 con- 
forme as instruções e teremos o gráfi- 
co: 


Figura 24 


Vamos analisá-lo: 

— decrescente no intervalo — x — 1 
— crescente no intervalo —1x + 

— nem par nem ímpar 

— nem injetora e nem sobrejetora 

Aproveite e procure pensar como a 
função quadrática poderia ser par e, 
definindo o domínio e o contradomí- 
nio, como poderia ser bijetora. 

Vamos entrar agora na função mo- 
dular e digitemos, por exemplo, a fun- 
ção f(x) = ABS (x + 1/x), fazendo: 
80 DEF FN F(X) = ABS (X + 1/X) e 
depois GOTO 80 e obteremos o gráfico 
ao lado. 

Vamos simplificar nossa análise e 
concluir que a função é, certamente, 
par, assim como qualquer outra fun- 
cão módulo. 


Figura 25 


Vejamos agora a função exponen- 
cial com o seguinte exemplo: 


Figura 26 


f(x) = 2 x, isto é, base 2 e teremos o 
gráfico ao lado. 

Vamos analisá-lo: 

— crescente 
— injetora 

Toda base maior que um nos dá uma 
função crescente, e fazendo a base en- 
tre O e 1 teremos uma função decres- 
cente e também injetora. 

Na função logarítmica temos o se- 
guinte domínio D(f) =x E r/0<x 
<8. 

Experimentemos fazer a base N = 2 
e obteremos uma função crescente e 
injetora. E se fizermos base N = 0,5 te- 
remos uma função decrescente inje- 
tora. 


fix) = log x 


Figura 27 


Para funções diversas, assim como 
para funções de 1 a 4, o domínio da 
função está entre —5e 5, o que permi- 
te escrever e plotar infinidades de fun- 
ções. Vamos apenas sugerir algumas 
interessantes funções que poderão ser 
estudadas pelos interessados: 

— HX)=X + 1/X 

— FX)=X"3-3*X 

— F(X) = ABS(X” 3-3*X) 
— FX)=X"2+1X" 3-1 

E finalizando, temos as funções tri- 
gonométricas, que pertencem a um 
grupo especial de funções, chamadas 
periódicas. 

Elas não serão abordadas por ora, 
"mas devido a sua importância resolve- 
mos colocá-las no programa. Oportu- 
namente estudaremos com detalhes e 
analisaremos cada uma das funções. 


O Programa 


O programa foi estruturado de ma- 
neira que possa ser alterado, conforme 
a conveniência do leitor, podendo até 
ser digitado parte dele, ou seja, a fun- 
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ção que interessar, não esquecendo as 
rotinas comuns. 

Observe ainda que enquanto os pon- 
tos estão sendo plotados nã tela, as 
quatro linhas de texto estarão mostran- 
do os valores de x e y. 

Boa digitação e até a próxima! 


GRE 2 UTAR 2: HTAB 17: 


Linhas 5- 15 — Menu que mostra 
as opções de fun- 
ções (à disposição) 

Linha 20 — Instrução para des- 
viar o programa 
conforme a opção. 

Linha 25 — Sub-rotina que de- 
senha o sistema de 
coordenadas carte- 


x = E "4X 


na 
ONFIRA A FUNCA O: E 
+ “487 PRINT 
(S/N) “42 GET FSE TF FS E “gu 
THEN 0 

DEF FNFOO =A%X+ 63 COS 


10 PRINT TABO 5)4-FUNCAO DO PRI 


O RALIS: PRINT O: PRINT TÁBI 5) 
sã PRINT OE PRINT 


: ABC 5)"3-FUNCAO NODULARC: PRINT 
sianas no centro da 
tela E PRINT TAB 5)“á-FUNCÃO EXPONENCI NT 
Ea 00 di = Rolla qa e AL“: PRINT: PRINT TABC G)“G-FUNC Te À 
cms função do pri- O LOGARITRICA” E FORMAC FU =A8N*24DAX É > ONDE 
meiro grau : PRINT: PRINT TAB( 5)76-FUNCOE tá) E” O COE -FICIENTE MMERICO D 
Linhas 45 61 = Ratna quê asia 5 DIVERSASO: PRINT: PRINT TAB( E (X) CUIS GRAU E" 2stB) E” O COE 
ia pa ls 5)*7-PUNDÕES TRIGONOMETRICAS” FICIENTE NUMERICO DE (X) CU-JO *; 
gundo grau. fã PRINT: PRINT: INVERSE É HTAB 
Linhas 65- 86 — Rotina que executa Br PRINT “c ESCOLHA UM NUMERO 2º: 30 PRINT “GRAU E” à ESC) EMO TE 
uma função modu- NORMAL à GET FGEL = VAL (FS IF RHO 
lar. PEER (99) é 19 INDEPEN -DENTE, PARA O TRACADO D 
Linhas: 90110 = Rotina que executa OR PEES 139) » 26 THEN is: O GRAFICO O COM -PUTADOR PEDIRA O 
uma ir expo- ed ON 1 GOTO 20,45,65,90,115,140, S VALORES DE (A),CB) E (Cl). ENTR 
naacial. 00 E Cês 05 DADOS E VOCE TERA O GR 
Linhas 115-130 — Rotina que executa ii bas ini ou n 
uma função logarít- 27, 33 INPUT “ENTRE COM O VALOR DE (A 
mica. BD: HPLOT 140,1 TO 140,140: HPLOT ER 


sho PRINT: INF UT “ENTRE COM O VA 


Linhas 140-180 — Rotina que executa SÉ 
LR DE 48): “bz PRINT: INPUT VE 


uma função qual. | 28,78 TO 28,80: HPLOT 56,78 TO 56 E 

quer, definida por | +82: HPLOT 84,76 TO 84,82: HPLOT NTRE COM O VALOR DE (C)3 “503 PRIN 

nós, 12,78 TO 142,82: HPLOT 168,78 TO TE PRINT “CONFIRA À FUNCAOS “sz PRI 
NT: 


PRINT “FOO=";As EK sR par; 


: É 48.82: HPLOT 195,78 TO 194,82: HP 
Linhas 200-400 — Rotina que executa pu pega ms gole ão poi ' 
as funções trigono- Lô7 deá,/0 TO ceá,8e: MPLOS 25c,78 É 
£ . TO 2 
métricas. dão 


60 PRINT: PRINT “CONFIRMA 2 (S/N 
) 


Linhas 500-560 — Rotina que define o . a Roni Pl e dir qe o 
domínio da função Pa o Es NTAB 6 VTAB di BET FS: IF FS (5) “5” THEN 45 
& plois da pánica TNT “FUNCAO DO PRIMEIRO BRA": PE | | df DEF FNFIXI=ARKADABS 
na tela. Rs É PRINT “CONO SABEMOS é + 

Linha 1000 — Retorna ao menu. ra eu 25 

Linha 1500 — Sub-rotina que de- na, pe, Ru di a 
senha o sistema de FRIN “FUN INTO: PR 
coordenadas carte- INTO: PRINT va FUNÇÃO Hoc ARE" TO 

& TERA E ENTE? i 


sianas no lado da 
tela (para a função 
Log). 

Linhas 2000-2010 — Rotina que define o 
domínio da função 
Logarítmica e plota 
os pontos. 


Sp 
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é FUNÇÃO 2 (5/ 


DE GNDICEN 
EN áid 


Ts DTHUT “ra 
Pa PRINT A 


de E! TO 
à Fixd= LOSE 
É R IRA" PEDIR À Bá 
DEVERA” SER MAI 

E DIFERENTE DE UM 1º 
* ENTRE COM O VALOR DA 


er 


NA CGORNo=i THEN 


RR RR | 


: PRINT O: PRINT “A BASE 


FETO de 


E 
rua 


NFCRE 2 (S/N) “oa GET FO: 
+ "BM THEN 415 
ENFOR = [06 0/4 LO 


--" 


É) bed 
Éro | 


(é 
: GOGUE 1500: GOSUB 2000: GOTO 4 


o 5) judo 


: HOME 5 VTAB iz HTAB do 
NEOES DIVERSAS”: PRINT: 
TESTE E” Q ESPALO PA 


o DE cido MAIOR QUE 
5 BESTA CF 
-HISTURAR FU 
——e 


H O B BYS H O P VEJA SE SUA CIDADE TEM O QUE VOCÊ PRECISA 


SÃO PAULO 


MICRO service 


ER 

Inclusão de 24 novas funções (Read, Data, etc.), 
Slow, High Speed, Alta Resolução, Porta de I/0, etc. 
para micro de tecnologia SINCLAIR ZX81. 
Manutenção de microcomputadores SINCLAIR (TK 
82,83,85, etc. )e TRS. 

Wilson de Assis — Tel.: 203-7967 


LIVROS NACIONAIS E 
IMPORTADOS DE INFORMÁTICA 


Livraria Imp. Científica Ltda. 


Av. Augusto-de Lima, 233 — sobrelojas 13e 17 
Fones: 224-5791 — 226-5853 e 226-5858 
Belo Horizonte — MG 


TÁ 


apple cursos 


CURSOS DIRIGIDOS DE 
MICRO-COMPUTADORES 


e BASIClelle Applesoft 
e ASSEMBLER 6502 
* EDITOR DE TEXTO E PLANILHA ELETRÔNICA 


NOVAS TURMAS (c/ 12 alunos) 
INÍCIO IMEDIATO 


Reservas pelos Telefones: 853-9457 — 853-2408 Rua Suzano, 78 — Jardim Paulista — São Paulo 


QUAL A INTERFACE QUE ESTÁ FALTANDO 
NO SEU MICRO? 


É AQUELA QUE LHE DEVOLVERÁ O PRAZER DE FICAR EM FRENTE DO SEU 
MONITOR POR TEMPO ILIMITADO. 


MICROTELA possibilita que você continue com seu TV, pois possue a mesma tela de 
poliester utilizada nos monitores de última geração, filtrando e eliminando os reflexos, ao 
mesmo tempo que aumenta a resolução da imagem. 

Adicionalmente proporciona o mesmo efeito repousante dos monitores de fósforo colo- 
rido, utilizando acrílico nas tonalidades verde e ambar. 


Informações com MASTER STING LTDA. 
Caixa Postal 18708 — São Paulo — SP 


SOFTWARE IMPORTADO PARA 
SINCLAIR E APPLE 


SINCLAIR — incríveis jogos importados, animados, tridimensionais, em alta resolução p/ 
micros adaptados, com som p/ micros com gerador, com simulação de A.R. por soft, sin- 
tetizador de voz por soft e-vários aplicativos. 

APPLE — os mais recentes lançamentos do mercado mundial, fantásticos jogos super tri- 
dimensionais e os mais poderosos aplicativos existentes. 

Escreva — nos dizendo qual é o seu micro e receba uma lista completa, ou telefone para: 
TRANINSOFT — A/C WAGNER F. TRANIN — Caixa Postal 911 — 12200 — S. J. Cam- 
pos — SP — Tel.: (0123) 21-6753 (após 19hs). 


Sua empresa poderia estar aqui. 

Anuncie no HOBBYSHOP e todos os Lei- 
tores da região conhecerão sua empresa. 
Anúncio econônico e de retorno garantido. 
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NEAO MODULO COM EXPONENCIAL -ETL. f RINT Na” 
E 390  HEOLOR HPLOT 0,45 TO OD, 245 TAB 20: HTÁB B: INVERDE : 
145 PRINT “IMPORTANTE: CORVEM NÃO «| dts INI 
E56 MPLOT i,ãa TO d,íig: GET FE: GOTO “( ESCOLHA UM NURERO )7 NORKAL 
UECER GUE O INTE NCÊ ; 2ot GET FG = VAL EM 
F-mnkiS E CON bi HPLOT S,0 TO 0,1 dão UNI GOGUE 350, 
IDA, PODERÁ” NAt 1,140: BET Fãs go 
CaQ GRAFICA NOS 
SENDO NECESSÁRIA U 
NO PRO GRANA,” 
450 PRINT: PRINT PARA ENTRÁR 
MN 05 
DADOS O PROGRAMA IRA PARAR E 
E DIGITARA': 
O DEF FN Fixi= (EXPRESSÃO) » 
COLOCANDO NO LuG5R DE (EXPRESS 
AO) à FUN-CAO QUE UOCE IMAGINAR | 
LOBU APOS, DIGI-TE é GOTO 170 5 
E BOA DORTE |“ 
t4h GTor 
10 DEF ENFIO)O =K*2+3/ à 
Ba ( 
X- 1) 
180 GOSUB ZE: REGSTONE BáRxá DE ESPáCO P/ O 
200 TEXT: VTáB is HTAB BE IN NU iºz= NORMAL + GET Fã: GOTO 340 ON 1 GOTO 390,390,395,395,400 
E 5 PRINT “FÚNCÕES TRIGONOMETRI! a0o 
3 NORMAL j HGR COLOR 3: HPLOT S,80 T 


T | : NLOLOR =3 
H HPLOT 1,445 TO fiéis ari 27 2,80 TO 279,80 
dás 0,0 TO 0,160 
OT 40,75 TO 40,82 

HeLOT te0,78 TO 120,60 
HPLOT 100,78 TO 180,82 
PLOT 240,76 TO 240,82 

RK=00Gi Toi STEP.OÍ 


LMTOCTTO LM do Go O LI 
-: um ol 
“ 


a fez 


EI É 


ONERR 
ye 
FY)8 


un cm cm 
Do “Do sã Ds 


DO EM cão um 


a Ga ra pa ra 


E) 


EMLOTXADE+ AO, H1D+B 


O mn 
Ea 


em 


à ts co Gs En 


PRINT A, EN FER) 
NEXT 
000 ViêS 24: HTAB dz INVERSE 3 P 
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VERIO PICA 


“ms INFORMÁTICA 


APPLE 
ZX SPECTRUM 
TRS / COLOR 


DRIVES, MONITORES, 

INTERFACES, IMPRES- 
SORAS, MODEMS, SU- 

PRIMENTOS, SINTETI- 
ZADOR DE VOZ, SOFT- 
WARE. 


CURSOS E 
TREINAMENTO 


BASIC | E II 
GRÁFICOS 
EDITOR DE TEXTO 


PREÇOS E QUALIDADE 
AO SEU ALCANCE 


(011) 
543-9859 * 533-4971 


RUA CALIFÓRNIA, 1.000 
BROOKLIN - SÃO PAULO 


SOLUÇÕES INTELIGENTES E RACIONAIS 


FALANDO 
A MESMA LINGUAGEM 


Falando a mesma linguagem dos empresários do 
setor, a equipe da EDIMAQ tem muito mais 
condições, até técnicas, de colocar seu produto no 
mercado, de forma racional e objetiva. 


Além disso, a EDIMAQ mantém uma estrutura 

funcional, que pode cuidar da produção de todo 
material promocional de sua empresa: catálogos, 
prospectos, mala direta, anúncios classificados e 
Markenting em geral. 


Consulte-nos, nós falamos a mesma linguagem,a 
linguagem da informática. 


IVA publkidada lia 


R. Domingos de Moraes, 254 1º and. 
Cj. 102 A Tels.: (011) 5849-3772 549-7344 
5872-0309 S.P. 


SOLUÇÕES INTELIGENTES E RACIONAIS 


O microcomputador é hoje, sem dúvida, uma necessidade na vida 

das empresas e nos lares, para uso em estudos e lazer. 

Diante disso com vistas a essa realidade, a Tropical Informática Ltda., 
atende seus clientes, através de uma equipe técnica altamente 
especializada no setor. 

O usuário recebe orientação correta para a aquisição do equipamento 
necessário as suas necessidades! 

Na área de treinamento a Tropical tem tido a satisfação de ver seus alunos 
concluirem os cursos, comprovadamente, programado em computadores. 
Os jovens usuários de computadores pessoais, necessitam constantemente 
de orientação e suporte técnico para tirar o máximo proveito 

de seus equipamentos. 

Por essa razão, estamos sempre nos atualizando quanto as novidades 

em equipamentos e software para melhor atendê-los. 

Nossa meta é dar atendimento personalizado aos seus clientes para que 
eles tenham noções para o seu desenvolvimento pessoal e profissional! 
Venha nos conhecer! 

Você terá a oportunidade de verificar porque nosso lema é 

SOLUÇÕES Inteligentes e Racionais. 


Rua Codifómia, 1.000 - Brooblin - PÃO PAULO 
Fones: 543-9859 - 5323-4974 DDD: 044 


“ao — QUADROS BRANCOS —— === 


CAVALETES || PARA CANETAS E TINTAS APAGÁVEIS A SECO 


OVWICaI 


LOUSAS VERDES, QUADROS DE FELTRO FLIPCHART. QUADROS 
BRANCOS, QUADROS QUADRICULADOS , 
TREINAMENTO E CONTROLE VISUAL. PARA AUDITÓRIOS, CINEMA ETC. 


SISTEMAS SUPERQUADROS Ê à Pi 


=" 


TELAS FIXAS, TELAS PORTÁTEIS 


RUA INDEPENDÊNCIA, 64 CAMBUCI SÃO PAULO FONE: 278-4196 
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Framework aplicações em finanças — 
administração — negócios 


Clark Fishbanck, Ted Reindal, 
Charles Pilgrim 
Editora McGraw-Hill 


aatmdo 
e a 


Framework, um sistema que reúne 
todos os aplicativos (e potencialidades) 
necessários para um perfeito inter-rela- 
cionamento dos diferentes departa- 
mentos de uma empresa. 

Em outras palavras, “Framework 
aplicações em finanças — administra- 
ção — negócios” é uma obra dirigida 
aqueles que já possuem um conheci- 
mento de Wordstar, dBase Il ou Ill, 
Multiplan, 1-2-3 e aplicações comer- 
ciais existentes no mercado para mi- 
crocomputadores. 

Com esta publicação, o usuário terá 


Wordstar 


a oportunidade de aprender como apli- 
car o Framework nos departamentos 
Pessoal, Marketing, Vendas, Contas a 
Receber e Produção. Economizando 
assim, tempo e dinheiro, pois este sis- 
tema substitui vários pacotes de soft- 
ware, que realizam um número limita- 
do de tarefas. 

Com o Framework vários tipos de or- 
camentos são comentados e demons- 
trados e muitas ferramentas financei- 
ras são ilustradas, entre elas, cálculos 
de taxas de juros, estatísticas básicas e 
análise de orçamentos. M.R. 


Manual para processamento de textos 


Para micros de 8a 16 Bits, o Words- 
tar é um Sistema de processador de 
textos, que visa facilitar o trabalho na 
produção de cartas, relatórios, comu- 
nicações internas, catálogos, malas-di- 
retas. 


Com uma linguagem simples e obje- 
tiva este livro, através de 16 capítulos, 
oferece gradativamente os comandos 
e recursos do Wordstar e ao final de 
cada segmento são apresentados exer- 
cícios para uma melhor assimilação. 


José Antonio A. Ramalho 
Editora Atlas 


cap 


O livro apresenta ainda um resumo 
dos Menus do Wordstar e as funções 
dos seus comandos, além de procedi- 
mentos sobre: margens e parágrafos, 
correção de textos, margens e tabula- 
ção, impressão de textos e etc. 

Wordstar Manual para processa- 
mento de textos, produzido todo em 
Wordstar, é uma publicação importan- 
te para se ter em uma biblioteca de in- 
formática, na medida que pretende 
servir de instrumentos de apoio para o 
aprendizado deste sistema. M.R. 


dBase Il — Aplicações Comerciais 


Roberto A. Byers 
Editora McGraw-Hill 
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Aprender fazendo. Este é o esque- 
ma deste livro que, segundo o autor 
“Um dos melhores métodos de apren- 
der é examinar o método usado por al- 
guma outra pessoa para resolver um 
determinado problema e então adaptar 
a solução para resolver o nosso proble- 
ma específico. A nossa adaptação será 
exclusiva e, por sua vez, se tornará 
modelo para alguma outra pessoa”. 


dBase Il segue esta linha de aprendi- 
zado e é dirigido àqueles que desejam 
desenvolver programas usando o dBa- 
se Il. Sendo assim, para aproveitá-lo 
ao máximo é necessário o leitor já ter 


completado o “Primer” ou ter algum 
conhecimento do dBase Il. 

O livro mostra na sua segunda e 
maior parte a utilização deste método 
em vários problemas financeiros, com 
uma série de programas para arquivos 
de clientes, listas e etiquetas de ende- 
reçamento e gerenciamento de inven- 
tário. 

Além de todo esse esquema, esta 
publicação aborda problemas mais di- 
nâmicos vinculados à entrada de pedi- 
dos de venda e faturamento. 

dBase Il é mais um livro guia para os 


já experimentados usuários do IBM 
PC.M.R. E sô 


LIVROSLIVROS LIVROS LIVROS LIVROS LIVROS LIVROS LIVROS LIVROS LIVROS LIVROSLIVROS 
Microcomputadores 
Introdução à Linguagem Basic 


gem, a Basic, de alto nível, mas de fá- 
cil compreensão, em outras palavras, 
“a proporção que o “vocabulário” do 
Basic vai sendo aprendido ele pode 
ser, imediatamente, usado em um 
computador, permitindo desde níveis 
elementares de conhecimento, à pre- 
paração de pequenos programas, os 
quais serão, paulatinamente, sofistica- 
dos à medida que o vocabulário conhe- 
cido for aumentado”. 

O livro aborda os seguintes assun- 
tos: uso do teclado e dos comandos; 
instruções múltiplas por linha; instru- 
ções para entrada de dados; sub-roti- 
nas; variáveis indexadas; o Basic da fa- 


“Ao cabo da primeira leitura da “In- 
trodução à Linguagem Basic” tornei- 
me um programador razoável de mi- 
crocomputadores”. Este comentário é 
de Paulo Cotrim Rodrigues Pereira (Di- 


retor Presidente da Digibrás) autor da 
apresentação do livro Microcomputa- 
dores Introdução à Linguagem Basic. 

Já em sua sexta edição, esta obra, 
segundo o autor, trata de uma lingua- 


mília Apple; e outros. 

Vale dizer ainda que o tipo de inter- 
pretador Basic exposto neste livro é o 
Microsoft, denominação referente a 


empresa que o desenvolveu. M.R. 


PLANSOFT 


FIQUE TRANQUILO, JÁ CHEGARAM OS MELHORES PROGRAMAS PARA O SEU TK 90X 


APLICATIVOS: 

901 Contas a Pagar e Receber 48K 

JOGOS 

920 Simulador de Vôo 48K 

Sensacional e realística Simulação de vôo pilotan- 
do um avião de grande porte. Segue manual com- 
pletissimo. 

921 Xadrez 48K 

O jogo dos reis em versão com 10 niveis. As parti- 
das poderão ser gravadas para utilização ou análli- 
se posteriores. O computador pode sugerir as jo- 
gadas. 

GAME PACKS: 

940 Game Pack 48K: 

* KNIGHT LORE: 

Participe da mais incrivel aventura por 128 telas di- 
ferentes. Você se transformará em Mago, Monstro, 
etc. Incríveis e fantásticos efeitos visuais. 

* MANIC MINER: 

Participe da exploração da mina. Vários telas. 
941 Game Pack 48K: 

* PSYTRON: 

Efeitos gráficos inacreditáveis. Vários níveis. Um 
dos Jogos mais completos desta linha. 

* KONG: 

Ajude a mocinha contra o King-Kong. 


942 Game Pack 48K: 

* PENETRATOR: 

Você estará invadindo o espaço aéreo inimigo. Vá- 
rios níveis, opção para treino e jogo. Possibilita a 
você criar sua própria cena do jogo. Versão do con- 
sagrado PENETRATOR da linha trs-80. 

* Chequered Flag: 

Simulação de corrida de Fórmula Um pelos consa- 
grados circuitos internacionais. 

943 Game Pack 48K: 

* FULL THROTTLE: 

Participe dos circuitos internacionais da Fórmula 
Um em Motorcicleta. Perfeita simulação. 

* ZOOM: 

Seu objetivo é proteger os refugidos dos ataques 
inimigos. Várias cenas. 

944 Game Pack 48K: 

* CAVELON: 

Participe de uma aventura num castelo medieval. 
Vários níveis. 

* MR. WIMP: 

Que tal ajudar o barman a preparar uns sanduiches? 
945 Game Pack 48K: 

* ANDROID 2: 

Um jogo sensacional. Efeitos tridimensionais. Vá- 


rios níveis. 

* LUNATTACK: 

Defenda sua nave do ataque inimigo. 

946 Game Pack 48K: 

* TORNADO LOW LEVEL: 

Consagrado Best Seller desta linha. Pilote um Jato 
em defesa de sua cidade. Efeitos gráficos Incríveis. 
* TUTANKAMUN: 

Participe de uma aventura nos labirintos do palácio. 
980 Game Pack 16K: 

* COOKIE: 

Ajude o cozinheiro preparar seu almoço 
*CENTIPED: 

Defenda-se da centopéia 

981 Game Pack 16K: 

* JET PAC: 

Participe de uma aventura na lua, voando com seus 
foguetes portáteis. 

* SEIDDAB ATTACK: 

Defenda a cidade das naves inimigas, usando os ti- 
ros poderosos de seu tanque. 

982 Game Pack 16K: 

* PSSST: 

Ajude o sapinho defender a flor dos insetos. 

* THRUSTA: 

Sensacional jogo num labirinto diferente. 


INFORMAÇÕES À PLANECON INFORMÁTICA LTDA. 
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Fone: (011) 204-2777 São Paulo — SP 
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CURSOS . 


Nesta edição apresentaremos uma 
série de programas que servirão para 
exercitarmos nossos conhecimentos 
da linguagem Assembly do 6502. 


PROGRAMA 1 


Adição de números com dois 
bytes cada 


Vamos tomar como exemplo a soma 
entre os números $55A4 e $3CB3 


$55A4 = 01010101 10100100 
$3CB3 = 00111100 10110011 


CARRY «<- +71 01010111 Parte menos significa- 


10010010 tiva do byte do resultado 
Lo parte mais significativa do byte do 
resultado 


Resultado Final: 110010010] 101010111 
92 


Hexadecimal 


A listagem do programa, que realiza 
a soma dos números de dois bytes ca- 
da, será apresentada a seguir. Os nú- 
meros pertencentes à essa operação 
de adição estão localizados a partir do 
endereço $316, ou seja, o número 
$S55A4 será armazenado da seguinte 
forma: 
Valor mais significativo no endereco 
$317 
Valor menos significativo no endereco 
$316 

Por sua vez, ocorrerá o mesmo va- 
lor $3CB3: 
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Assembly 6502 


Aula X 


Valor mais significativo no endereço 
$319 
Valor menos significativo no endereço 
$318 


Listagem 1 


1 — Zera o bit de Carry 

$300 — 18CLC 

2 — Carrega, adiciona e armazena os 

bytes menos significativos: 

$301 — AD LDA $0316 — carrega o 
byte menos significativo do 
primeiro número 

$302 — 16 

$303 — 03 

Observação: BMES (byte menos signi- 

ficativo) e BMAS (byte mais significa- 

tivo) 

$304 — 6D ADC $0318 — Adiciona ao 

BMES do segundo número 


$305 — 18 

$306 — 03 

$307 — 8D STA $031B — Armazena o 
resultado do BMES 

$308 — 1B 

$309 — 03 


3 — Carrega, adiciona e armazena os 
BMAS e retorna ao monitor: 

$30A — AD LDA $0317 — Carrega o 
BMAS do primeiro número 


$30B — 17 

$30C — 03 

$30D — 6D ADC $0319 — Adiciona ao 
BMAS do segundo número 

$30E — 19 

$30F — 03 


Gustavo Egidio de Almeida 


$310 — 8D STA $031A — Armazena o 


resultado do BMAS 
$311 — 1A 
$312 — 03 


$313 — 60 RTS — Retorna ao Monitor 


4 — Dados: 

$314 — 00 — vazio 

$315 — 00 — vazio 

$316 — A4 — BMES do primeiro nú- 
mero 

$317 — 55 — BMAS do primeiro nú- 
mero 

$318 — B3 — BMES do segundo nú- 
mero 

$319 — 3C — BMAS do segundo nú- 
mero 


PROGRAMA 2 


Subtração de números com dois 
bytes cada 


Este programa realiza a operação 
contrária à operação anterior. 

Vamos efetuar a subtração com os 
mesmos números $55A4 e $3CB3 


$55A4 = <— 0101 0101 1010 0100 
$3CB3 = 0011 1100 1011 0011 


0001/1000 11140003-Binário 


Resultado = 1 8 F 1—>Hexadecimal 
Listagem 2 


$300 — 18 CLC 


CURSOS 


$301 — AD 1603 LDA $ 0316 Este programa é apresentado de 
$304 — 6D 1803 ADC $0318 uma forma bem simples podendo, pos- 
$307 — 8D 1B 03 STA $031B teriormente, ser aperfeiçoado pelo pró- 
$30D — AD 17 03 LDA $0317 prio leitor e tornar-se um aplicativo 
$30D — 6D 1903 ADC $0319 bastante didático para os interessados 
$310 — 8D 1A 03 STA $031A no aprendizado musical. 
$313 — 60 ATS Listagem 3 
$314 — 00 BRK 
$315 — 00 BRK 1 — Início 
$316 — A4 BMES do primeiro $300 — A9 LDA $SC8 
número $301 — c8 
$317 — 55 BMAS do primeiro Figura $302 — 85 STAS01 
número $303 — 01 
$318 — B3 BMES do segundo Este símbolo, ilustrado no lado es- $304 — 20 JSR$FC58 
número querdo da pauta de cinco linhas, cha- $305 — 58 
$319 — 3C BMAS do segundo ma-se Clave de Sol. Cada uma destas $306 — FC 
número “Bolinhas”, situadas na pauta, são as $307 — A2 LDX 500 
notas musicais, contadas da esquerda $308 — 00 
PROGRAMA 3 para a direita. São elas: dó, ré, mi, fá, $309 — 20  JSR$0352 
sol, lá, si, dó. $30A — 52 
Este programa emite notas musicais As notas musicais são armazenadas $30B — 03 
no alto-falante de seu televisor e impri- a partir do endereço $33A. $30C — A9 LDA $0F 
me, simultaneamente, caracteres grá- Os caracteres gráficos, por sua vez, $30D — OF 


ficos que as representam. Vamos ver terão seus valores armazenados nos $30E — 85 STA$30 
como as notas musicais podem ser endereços $342 (coluna) e $34A (li- $30F — 30 
apresentadas (Veja figura 1). nha). 2 — Plota o ponto 


O MELHOR SOFTWARE 
PARA SUA CABECA! 


Nºcsitora 
Aleph 


id = Quo 
e” TK 82/83/85, CP 200 e Sinclair ZX81 Ec Beug 
a do E . -— 1 ! 
” 1 Usando linguagem de máquina ...... $ 85.000 8 'eglo 
2 Jogos em linguagem de máquina vol. 1. .$ 79.000 g “Lao 
3 Jogos em linguagem de máquina vol. 2. .$ 85.000 ê <3% 
4 Jogos em linguagem de máquina vol. 3. .&$ 92 000 o Is 
5 Criando em linguagem de máquina . .. .$ 99 000 ã “102 
6 Tabela de mnemônicos Z80 ........ $& 17 000 Bo e E [=) 
7 Oseu micro e o mundo externo. ..... $ 95 000 SoLa m 
8 Baic TKvold, sousa es moments $& 65.000 2 Das e a 
Bm TEVOLM. apsersennaeri $ 78.000 Sa BZ ê 
10 Basic TIC VOI. MI... armsise sm erásia 6 $ 88.000 Ee a 2 
11 Coleção de programas vol. 3. ....... $& 59.000 tTossUs 
12 Dissecando jogos .......icccrrãos $& 65.000 wuevaLor- 
13 Evoluindo no Basic TK. .......... $ 79 000 Ta 
14 Super Basic TK ......cccccrros $ 89 000 
15 Informática na escola. . ........+.. $& 67 000 
16 Curso de jogosem Basic TK . ....... $ 45 000 


ZX SPECTRUM E TK 90 X 
17 Explorando o TK90 X...... ae $ 90.000 
APPLE |I (TK 2000) 
18 Tabela de mnemônicos do 6502. ..... $ 22.000 
19 Assembly 6502 .........c..00..s $ 97.000 
20 Guia do Programador DOS. ........ $ 99.000 


MSX 


21 Dominando o Expert. ........... $ 102.000 
22 Linguagem Basic MSX ........... $ 105.000 
23 Resumo de operações do Expert ..... $ 24.000 
24 Coleção de Programas MSX (vol. 1)... .$ 93.000 


PREÇOS VÁLIDOS P/ TEMPO LIMITADO 


Desejo receber os livros correspondentes aos números assinalados 


Nossos livros estão à venda também nas boas livrarias e lojas de computação. 
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CURSOS 


Coluna do Caracter 
Plotado 


Linha do Caracter 
Plotado 


LDA $ CO50 


$352 — AD 
$353 — 50 

$354 — CO 
$355 — AD 
$356 — 54 

$357 — CO 
$358 — 60 RTS 


LDA $ C054 


PROGRAMA 4 


Este programa, feito inteiramente 
em Assembly, transforma o teclado de 
seu computador em um teclado musi- 
cal, com oito notas completas (1 oita- 
va). As notas musicais situam-se nas 
teclas de 1 a 8. Para retornar ao modo 
normal, pressione 0. 


Listagem 4 
1 — Limpa a tecla 


$300 — 2058FC JSRS$FC 58 
2 — Lêo teclado 


$310 — BC LDY$0342,X 
$311 — 42 

$312 — 03 

$313 — BD LDAO34A,X 
$314 — 4A 

$315 — 03 

$316 — 20 JSR$F800 
$317 — 00 

$318 — F8 

3 — Lêanota 

$319 — BD LDASO33A,X 
S31A — 3A 

$31B — 03 

$31C — 85 STASOO0 
$31D — 00 

S31E — 84 TXA 

$31F — 48 PHA 

4 — Executa a Nota 

$320 — AD LDAS$CO30 
$321 — 30 

$322 — CO 

$323 — 88  DEY 

$324 — DO BNES04 
$325 — 04 

$326 — C6 DEC 7ZZ%01 
$327 — 01 

$328 — FO  BEQS08 
$329 — 08 

$32A — CA DEX 

$32B — DO BNEF6 
$32C — F6 

$32D — A6 LDX 71800 
$32E — 00 

$32F — 4C  JMP $.0320 
$330 — 20 

$331 — 03 

5 — Checa se todas as notas foram 
lidas 

$3322 — 68 PLA 

$333 — AA TAX 

$334 — E8 INX 

$335 — EO CPX% S08 
$336 — 08 

$337 — DO BNESD7 
$338 —. D7 

$339 — 60 RTS 

6 — Dados 

$33A — 88 

$33B — 79 

$33C — 60 

$33D — 67 

$33E — 59» Valores das Notas 
$33F — 51] Musicais 
$340 — 48 

$341 — 44 

$342 — 07] 
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$303 — 20 JSR $ FD35 

$304 — 35 

$305 — FD 

$306 — C9 CMP Z SBO 

$307 — BO 

$308 — 30 BMI $SF9 

$309 — F9 

$30A — FO BEQ $25 

$30B — 25 

$30C — C9 CMP Ff $B9 

$30D — B9 

$30E — 10 -BLP$SF3 
30F — F3 

3 — Converte o valor do teclado 

$310 — 29 AND Z/0F 

$311 — OF 

$312 — AA TAX 


4 — Estabelece a duração da nota 


$313 — A9 
$314 — 60 
$315 — 85 
$316 — 01 
$317 — BD 
$318 — 32 
$319 — 03 
S31A — 85 
$31B — 00 
5 — Executa a nota 

$31C — AD LDA $ CO30 
$31D — 30 

$31E — CO 

$31F — 88 DEY 

$320 — DO BNE $04 
$321 — 
$322 — C6 
$323 — 01 
$324 — FO 
$325 — 08 
$326 — CA DEX 
$327 — DO BNESF6 
$328 — F6 
$329 — A6 
$32A — 00 
$32B — 4€ 
$32C — 1C 
$32D — 03 
6 — Lê a nova nota ou finaliza 
$32E — 4C JMP $ 0303 
$32F — 03 

$330 — 03 

$331 — 60 RTS 

7 — Dados 

$332 — EA 

$333 — 85 

$334 — 7F 

$335 — 79 

$336 — 74 

$337 — 6F 

$338 — 6B 

$339 — 67 

S33A — 64 


ERRATA 


LDA 360 


STA $01 


LDA $ 0332,X 


STA $00 


DEC 7/$01 


BEQ $08 


LDX 7,00 


JMP $31C 


